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ABSTRACT 

The LUMIS program, has designed an integrated 
geographic information system to assist program managers 
and planning groups in metropolitan regions. Described is 
the series of computer software programs and procedures 
involved in data base construction using the census DIME 
file and point-in-polygon architectures. /!' 

The system is described in two parts: (1) instructions 
to operators with regard to digitizing and editing procedures, 
and (2) application of the four data base construction algo- 
rithms: ROTATE (to achieve map registration), CHAIN (to 
assure the topological integrity of polygon files), DACS 
(DIME AREA CENTROID SYSTEM alternative to CHAIN), 
and PIOS (the polygon intersection overlay system for tab- 
ulating land use acreages within administrative districts). 
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LUMIS 

LAND USE MANAGEMENT INFORMATION SYSTEM 
Coordinate Oriented Program Documentation 


1.0 INTRODUCTION 

1. 1 The System 

The LUMIS project considers two distinct data types identified as 
nominal and ordinal. Nominal data refers to that information which is geo- 
graphically located using a political addressing system such as the individual 
house and street address. Ordinal data is data geographically referenced using 
a classical X and Y coordinate system such as latitude and longitude. To 
reconcile nominal and ordinal data the LUMIS provides users with a set of 
Census Bureau related procedures that aggregate street addressed data to 
politically defined geographical zones. Those nominally labeled zones are then 
ordinally identified through the process of digitization with X and Y coordinates 
describing their perimeter. 

1. 2 The Process 

the coordinate files have been produced for both the nominal and 
ordinal polygons the LUMIS allows for the comparison of associated data bases. 
Before this compa:cisbn takes place LUMIS first requires that the raw digitized 
coordinates be converted to state plane coordinates and that they be subjected 
to a graphic edit. 

The graphic edit allows for the correction of a variety of syntax errors 
possible in the digitizing procedures. After those errors have been corrected 
the coordinate files are then passed to' the CHAIN and ROTATE programs. 

ROTATE produces a geographically true X and Y coordinate file from 
raw digitized or converted coordinate data referenced to any standard map 
system. That is done to transform coordinates oriented to a digitizing table to 
coordinates oriented to true ground position. In accomplishing that ROTATE 
considers both scale and rotation factors. 
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CHAIN incorporates procedures to link line segments by coordinate 
locations around unique political or nominally labeled polygons. Those proce- 
dures produce multiple records for polygons in whic^ a boundary line has to be 
used twice> for example, once for each block found on either side of a street. 

Where Census Bureau defined nominal polygons are used such as 
census tract or census block, it is not necessary to create a unique file of 
X and Y coordinates through the digitizing procedure to define their perimeters. 
A set of such coordinates have already been prepared by the Census Bureau 
through their DIME file creation efforts and those coordinates can be modified 
for use with LUMIS through the DACS program. 

Once the nominal polygon coordinate file and ordinal polygon coordinate 
file have been completed, the comparison of data associated with each polygon 
type can takt?'pi^ce through the map-like overlay of computer processing. This 
overlaying of nominal and ordinal polygons takes place in the PIOS program. 

The output from that effort represents the final LUMIS data product and is used 
as input to the LUMIS interactive graphics system, Proprietary data base man- 
agement systems, or the installation unique information management systems. 

Figure 1 is a flow chart that illustrates the relationships between the 
various LUMIS coordinate oriented programs and procedures. That same 
figure also provides a reference to the various sections found in this Report. 

■■ (I ■ 
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Figure 1. LUMIS Land Use Management Information System — 
Organization of Coordinate Oriented Program Documentation 








DIGITIZING PROCEDURES 


2 . 0 


2. I Introduction 

Digitizing is the mechanical process by which X and Y coordinates 
are determined that ordinally describe the outline or perimeter of any mapped 
polygon. In that process a piece of equipment referred to as a digitizer is 
used. That machine is similar in appearance and operation to a traditional 
drafting machine, and consists of a table and cursor. 


There are numerous sets of digitizing procedures and techniques 
available. Their use depends on the equipment employed, the software being 
used, and the types of uses the coordinates are later subjected to. After 
reviewing these available procedures and techniques LUMIS evolved its own 
unique set of digitizing procedures, and they fell into two case types. 

The first case type dealt with digitizing ordinal polygons and is always 
used with mapped and aerial photo data. The second type is for use with nomi- 
nal polygons and was designed to be used only when Census Bureau DIME 
coordinate files were not available or nominal polygons other than those 
defined by the Census Bureau were to be used. 


2. 2 Case 1: General Map Case 

In preparing the data maps from interpreted aerial photos the 
cartographer has to insure that the numbers identifying unique polygons are 
consecutive, i.e. (POLYNO = 1, 2, 3, 4. ...N). A doughnut polygon or polygon 
with smaller polygons within it has to be digitized with the inside polygon 
following the mother polygon. Thus in addition to each polygon being given a 
sequence number, beginning with one, it is also given a PTYPE or polygon 
type classification number. All mother polygons are given PTYPE numbers 
of 10 regardless of their POLYNO or sequence number. All mutually exclu- 
sive interior or doughnut polygons are given PTYPE numbers of 11, with 
inclusive interior polygons being given increasing sequential type numbers. 

The most interior polygon will always have the highest PTYPE number. 

After completing interpretation mapping and polygon identification 
numbering the map is set up on the digitizer table at any orientation, and 
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taped down. The digitizer and keypunch are then turned on. The map setup 
record is established with KSET equal to 1 or other successive numbers depend- 
ing on the number of map setups for a run. This is recorded on cards or tapes 
depending on the digitizer being used. Then the map tolerance record is 
created as indicated in Figure 2 and explained in the text. 

2. 2.1 Map tolerance record establishes the limits in calibration of the digi- 
tized coordinate reference points and the overall perimeter of the polygon to 
follow. 

NPOLY — Total number of polygons for a map setup. 

M — Number of control points provided as calculated and 

digitized reference records. 

XOTOL, YOTOL, and THETOL are user specified tolerance levels in 
the solution of a digitized origin (XO, YO in inches) and the rotation angle 
(9 - in minutes of arc) between digitized map and accepted reference source. 

Sometimes NPOLY is not known until the digitizing is finished for a 
given setup. Thus the NPOLY value may at times be entered after the digiti- 
zation is complete. The number of control points (M) is entered for the map, 
followed by the tolerance levels for the digitizer origin and the rotation angle 
solutions (XOTOL, YOTOL, THETOL). 

The California State Plane Coordinates (SPC) records follow. Those 
records contain the SPC's of the M control points, and are computed at a later 
time according to the procedures outlined for calculating the state plane 
coordinates. 

Control points are selected in the four corner areas as much as pos- 
sible to avoid problems later in the ROTATE program's least square analysis. 

The coordinates of the M control points are digitized in the same 
order as the SPC coordinates are to be calculated. 

Control point cards (digitized reference records) are created by 
moving the digitizing cursor to each of the map control points, in the proper 
order, and then pressing the digitizer register button. 
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2. 2. 2 Control reference points are calculated from an existing reference 
source by the user. They are given in tenths of a foot without a decimal point. 
In this case the control points are in California Zone 7 State Plane Coordinates, 
but any legitimate earth coordinate system is acceptable. One through M coordi- 
nates are coded with four or less pairs per card. 

Digitized reference points are entered in the same order as the control 
reference points in thousands of an inch, without the decimal point. One through 
M coordinates are coded with six or less pairs per card. 

Digitization of the map polygons is then performed. (See Figure 3. ) 

For each polygon of the map setup which corresponds to the Lrjitial setup 
cards of Figure 2, a polygon designation record is created using the keypunch 
machine directly. A polygon limit record is then created. 

A polygon description record, polygon limit record, and polygon 
boundary record are required for each polygon digitized (NPOLY) in a map 
setup (KSET). 


2, 2. 3 Polygon description record contains control information for each 
polygon: 


MAPNO: 

MAPOL: 


LUC ODE: 
POLYNO: 
PTYPE: 


Map number for the digitized polygon. 

Total number of polygons on a map. This could, but 
does not necessarily equal NPOLY (number of 
polygons in a map setup). 

Identifying information code. 

Sequence number of polygon, 1 to MAPOL. 

Designates doughnut polygons, or polygons within poly- 
gons; normal polygons are digitized number 10. Numbers 
larger than 10 indicate succeeding doughnut polygons. 


2. 2, 4 Polygon limit record. One limit record is required for each polygon. 

XMIN, YMIN, XMAX, YMAX: The minimum X, minimum Y, maxi- 
mum X, and maximum Y digitized coordinates, respectively, of the polygon, 

NP: Total number of digitized coordinates in a polygon. 
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Figure 3, Raw Digitized Map File Layout Resulting from 
Digitizing Map Case 1 
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To create the polygon limit record, the digitizing cursor is set just 
outside of the left-most border of the polygon to be digitized. The section 
"left-most" implies the smallest X coordinate as defined by the digitizer table. 
Only this minimum X coordinate is digitized and not the Y, It must be insured 
that this XMIN is less than any X coordinate contained on the polygon boiindary. 

Next the cursor is placed on the digitizer table just below the lowest 
polygon point. Just the Y coordinate was digitized as YMIN. 

Then the cursor is placed just to the right of the right-most polygon 
point and the X coordinate digitized as XMAX and finally the cursor is placed 
above the highest polygon point and the Y coordinate digitized as YMAX. If the 
digitizing cursor has no provision for entering only one component of a pair, 
it would be a simple matter to read the coordinate from the digital read out on 
the console and then enter it by hand on the terminal or keypunch. 

It should be noted that the output polygon limit record contains the 
SPC minima and maxima, not the transformed digitized minima and maxima 
(if the rotation angle is large enough, the two sets of minima and maxima may 
be the same). 

The number of points (NP) for the polygon is taken from the map (if 
properly prepared) or by counting the number of polygon digitized boundary 
records when finished. If this number is N, it is multiplied as 6 by (N-1) and 
this product added to the number of pairs of coordinates on the list record to 
obtain NP. The suggested alternative is for the photo interpreter who 
creates the map to indicate the digitization points at a density sufficient to ade- 
quately reflect line curvature. In so doing, he could indicate the point count 
before digitization commenced. 

Finally, the polygon digitized boundary records are created either by 
running the cursor counterclockwise around the polygon boundary and digitizing 
at the preselected points, or at the operators' discretion. The polygon is 
closed by digitizing the first point again at the finish. 

2. 2. 5 Polygon digitized boundary records . One set of digitized coordinates 
is required for each polygon. 

XD(1), YD(1), XD(NP), YD(NP): Digitized coordinates of polygon. 
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Case 2: MMS Map Case 


2.3 

In digitizing maps of the Case 2 type users largely follow Case 1 
procedures. Generally only four (4) control points are used for the MMS maps 
(M=4) since these maps were compiled on the State Plane Coordinate base and 
hence a more accurate transformation from digitizer coordinates to SPC’s can 
be effected than with other map projections. 

The control points are located and their State Plane Coordinates 
determined by finding the SPC tic marks on the base map’s margins, and con- 
necting the similar tics with a straight edge and hard lead (4H) pencil. Then 
the four intersection points are digitized and the SPC’s read off the map margins. 
If there is an insufficient number of SPC tic marks on the map base, users 
should select a point in each of the four corners that can be easily identified 
on a USGS quad, and the SPC’s identified according to the method described for 
calculating the State Plane Coordinates. 

Digitization of the street segments is then performed, in any arbitrary 
order and direction. See Figure 4, All street segments are digitized for each 
tract, and each tract is a unit unto is elf, i. e. , each tract contains the header 
records of Figure 2 (except the map setup records, which in this case indicate 
the number of tracts which are to be processed). Thus each tract has a map 
tolerance record where NPOLY is the number of street segments in the tract. 

The SPC reference and SPC digitized reference records follow for each census 
tract, even though those records may have been precisely the same for several 
tracts on the same MMS map. 

Blocks are digitized as units in a tract, therefore geographic reference 
control points must be established per each tract. Each map contains one or 
more tracts. A map tolerance record, control reference record and digitized 
reference record are also required. 

2. 3. 1 A map tolerance record establishes the limits in calibration of the digitized 
coordinate reference points and the overall perimeter of the polygon to follow. 

NPOIiY — Total number of blocks in a tract. 

M — Number of control points provided as calculated and 

digitized reference records. 
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XOTOL, YOTOL, andTHETOLare user specified tolerance levels in the 
solution of digitized origin (XO, YO in inches) and the rotation angle (a — in 
minutes of arc) between digitized map and accepted reference source. 

^ Control reference points are calculated from an existing reference 
source by the user. They are given in tenths of a foot without a decimal point. 
In the LiUMIS test case the control points were in California Zone 7 State Plane 
Coordinates, but any legitimate earth coordinate system is acceptable. One 
through M coordinates are coded with four or less pairs per card. 

2. 3 pigitized reference points are entered in the same order as the con- 

trol. reference points in thousands of an inch, without the decimal point. One 
through M coordinates are coded with six or less pairs per card. 

Digitizing the MMS maps can be performed by one person as the data 
maps were if the census areal units are prepunched by a simple FORTRAN 
program. Then the digitizing operator need only to place the punched records 
into the keypunch feeder in the same order as the street segments which he 
proposed to digitize. Since the LUMIS project involved several thousand 
census blocks in the Santa Monica Mountains, this procedure was followed 
to automate and expedite the digitizing procedure. However, for a limited 
amount of digitizing such as that which might have been performed by the City 
of Eos Angeles to update the census areal units each year, a two-person 
method was suggested. Figure 4 illustrates the card deck setup for that method. 

In the ^limited amount of digitizing*^ technique, the digitizing operator 
places the cursor on the node at the tail end of the arrow along the street seg- 
ment. He then calls the block designator on the left of the street segment 
(137411010) to the person on the keypunch, who then punched this designator. 

Note the 0” of the tract number (1374. 01) was dropped, as redundant informa- 
tion, a ”0** was added to the block number (101), and the tract and block numbers 
were joined. The implied 0** of the block number was to allow for future 
block splitting and necessary decimal designators. 

The tract and block number to the right of the street segment are then 
called out to the keypuncher who punches the number as shown. The key- 
puncher then presses the space bar. The digitizing operator presses the 
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digitizing button, thus recording on the card the X, Y coordinates of the starting 
node. The digitizing operator moves the cursor along the arrow to the ending 
node of the segment and again presses the button thus recording the digitizing 
table coordinates of this node. The keypuncher releases this card and sets a new 
card into the keypunch for the next street segment. 

The digitizing operator meanwhile marks this segment on the map so 
that he will not redigitize it later. The procedure then is repeated, segment 
by segment, in any arbitrary order, until the tract is finished. Note that the 
tract right field for segments on the census tract boundary (that is, the desig- 
nator for an area outside of the tract presently being digitized) is simply left 
blank. In the case where a census block is entirely within another census block 
(forming what is termed a "Doughnut Hole"), the block right is also left blank. 

Link records for each street segment in a census tract are required. 

2. 3,4 Street Segment Record . Each record contains the left and right census 
tract/block for a segment and the beginning and ending coordinates. If a seg- 
ment is missing a tract/block right, the coordinates are coded but the right 
position is left blank. 

ITLEFT = Tract/block left of street segment (1 to MPOLY) 

ITRITE = Tract/block right of street segment (1 to NPOLY) 

XL, YL = X and Y coordinates of the beginning made for segment. 

XR, YR = X and Y coordinate of the ending node for a segment. 


CALCULATING THE STATE PLANE COORDINATES 


3. 0 

3. 1 Introduction 

The following discussion describes the theory and methodology for 
calculating the State Plane Coordinates (SPCs) of the control points used in the 
digitizing process. These procedures are only used for the General Map Cases 
because the SPCs for the special MMS Map Case are determined at the time of 
digitization. The tools requii'ed for calculating the SPCs include: 

1. New, unfolded USGS Quad 

2. Digitizer 

3. SPCCAL computer program (Appendix I) 

3. 2 Procedure 

Place the new USGS quadrangle on the digitizer table, and aline it 
parallel to the bottom and sides. Use the digitizer to insure that the X coor- 
dinate of the left map edge (not paper edge) differs by no more than . 001 inch 
between the top and bottom of the map. (If the paper has stretched, this 
accuracy cannot be obtained; secure a new quad. ) Use the same method for the 
Y coordinate of the bottom left and right map edges. Then tape the quad 
securely and mark the control points on the map. Locate the four 2-1/2 
minute and longitude tic marks surrounding each of the control points. 

It is suggested that these 2-1/2 minute tic marks be used for deter- 
mining the control points ' SPCs instead of the actual tic marks provided on 
the map margins for two reasons: (1) there is an insufficient number of tic 
marks on the margin to establish a dependable grid on the topographic map, 
especially when considering that (2) the SPC grid cannot be linear on a topo- 
graphic map projection. 

The State Plane Coordinates for the 2-1/2 minute intersection tics can 
then be obtained from the U. S. Coast and Geodetic Survey Plane Coordinate 
Intersection Tables (2-1 /2-minute) , SP-327, a copy of which can be obtained 
from the Los Angeles County Engineer's Office or the Superintendent of Public 
Documents. 
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With the SPCs of the four bounding 2-1/2 minute intersections known, 
they can be designated (Xj, Yj), (X 2 , Y 2 )» (X^, Y^), and (X^, Y^) representing 
the southwest, southeast, northwest, and northeast tic marks respectively. 

(See Figure 4. ) Since the SPCs form a curvilinear coordinate system on the 
topographic map, a four-way interpretation for the X andv:>Y coordinates of each 
control point can then be made. 

Using the digitizer, establish the origin at the first control ppint and 
measure (to the nearest . 001 inch) the X and Y displacements to two diagonal 
2 - 1/2 minute intersections. The four resulting numbers are named Xj^, X 2 , 

^ 1 ’ ^ 2 ’ refer to the segments created by an imaginary perpendicular north- 
south line drawn through the center of the control point (Figure 5). To obtain 
the most accurate results, it is best to remeasure the four distances several 
times (fe originating on each occasion), then average the results. Repeat this 
procedure for each control point, proceeding in the same order as the points 
were digitized on the mylar base map. ^ 


3.3 Calculations 

The four SPC solutions for each of the X and Y coordinates of the con- 
trol points can now be calculated by; 


X = X. + 2000X, + — r — (Xo - X.) 

1 1 Yl + 72 3 1' 


X = X- + 2000x, 7 ^ (X, - X,) 

3 1 y^ + y2 ' 3 1' 


7l 

X = X- - 2000x- + 7 (X. - X„) 

2 2 y + y ' 4 2' 


X = X . - 2000x- - —7 (X. - X-) 

4 2 yj + y 2 4 2 


3-2 




Y = Yj + 2000yj - - Y^) 

Y = Y^ + aOOOyj - Yj) 

Y = Y3 - 2000y2.j-^(Y3-Y^) 

Y = V^-2000y2+;j^^(Y3- Y^) 

The 3PCCAL program performs the above mathematics. The four 
X and Y solutions should always agree to within 3 to 30 feet of each other. If 
the corresponding range of solutions should ever exceed 30 feet, the Xj^, y^» 
x_, y_ distances should be remeasured and run through the SPCCAL program 

b Lt 

until they meet the specified tolerance. The SPCCAL program prints an error 
message when the tolerance is exceeded. An example of the calculations for 
the SPCs of a land use control point is exhibited in Figure 6. 

The State Plane Coordinates of the control points may then be punched 
onto cards for inclusion in the ROTATE program (see Figure 7). 
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LUMIS PROJECT TEST SITE 


WOODLAND HILLS 


LAND USE MAP 17001 


REFERENCE POINT 1: INTERSECTION OF VALLEY CIRCLE BOULEVARD AND NORTHBOUND 

FEEDER OFF VENTURA FREEWAY 

ELEVATION: 

900 FEET 








grid tics 





SWl 

SE 2 


NW3 


NE 4 

LATITUDE 

34° 07' 30" 

34° 07' 30" 


34° 10' 


34° 10' 

LONGITUDE 

118° 40' 

H8° 37' 30 

II 

0 

0 

00 


118° 37' 

X 

4085806.8 

4098417.5 


4085856.4 


4098460.8 

Y 

4158058.9 

4158020.2 


4173221.8 


4173183.2 

’‘l " 

4.455 INCHES 

X3 - X^ 

= 49 

- 

^2 

= 39 

X2 

1.840 INCHES 

CN 

X 

1 

X 

= 43 

Y3 - 

Y4 

= 39 

yi = 

6.610 INCHES 

y]/zy = 

.8732 

/rx 

= 

.7077 


0.960 INCHES 

y2 /sy 

.1268 

X 2 / 2 x 

= 

.2923 



_X 

_Y 


4094760 

4171251 


4094760 

4171251 


4094776 

4171274 


4094776 

4171274 

AVERAGE; 

4094768 

4171262 


Figure 6. SPC Calculation for Land Use Control Point 
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SPCCAL IS A COMPUTER PROGRAM THAT CALCULATES THE CONTROL POINT 
SPCs FOR INPUT TO THE ROTATE PROGRAM. 


DECK SETUP: 




COLUMN 

VARIABLE 

DESCRIPTION 

CARD 1 

1-5 

NUMAP 

NUMBER OF MAPS FOR WHICH CONTROL 
POINT SPCs ARE TO BE CALCULATED IN 
THIS COMPUTER RUN. (INTEGER) 

CARD 2 

1-10 

MAPNO 

MAP NUMBER (EX. 17001 ) FOR WHICH 
SPCs ARE TO BE CALCULATED. (INTEGER) 


11-15 

NCONPT 

NUMBER OF CONTROL POINTS. (INTEGER) 

CARD 3 





SPC COORDINATES OF THE FOUR 2-1/2 MINUTE LATITUDE-LONGITUDE TIC MARKS 
SURROUNDING THE FIRST CONTROL POINT. (SEE FIGURE (4). ) PUNCH THESE 
COORDINATES (TO ONE DIGIT AFTER THE DECIMAL POINT) IN THE FORM OF X 

X 4 # Y 3 , Y 4 , RIGHT JUSTIFIED TO EVERY TENTH COLUMN. 

CARD 4 

X ] , X 2 , Xg , /^(IN THAT ORDER) DIGITIZER MEASURED DISTANCES (IN INCHES) 

TO THE 2 - 1/4 MINUTE INTERSECTIONS. 

REPEAT ONE SET OF CARDS 3 AND 4 FOR EACH CONTROL POINT. 

FOR THE SECOND MAP, REPEAT CARD 2 FOLLOWED BY THE NECESSARY SETS OF CARDS 3 
AND4. 


Figure 7. State Plane Coordinate CALculation (SPCCAL) 


EDITING PROCEDURES 


4. 0 

4. 1 Introduction 

Editing the MMS Census Tract and General Map Raw Digitized Map 
Files is the process through which all syntax errors are removed for input to 
the CHAIN or ROTATE programs. The procedures for editing the two different 
map cases are fundamentally the same, but the individual steps are performed 
with varying emphasis. 

The following items are needed in the editing process: 

1, Original mylar base map 

2. Plotter program and plot of digitized data 

3. Printout of raw data 

4, Light table 

The mylar base is the actual map that was digitized. A listing of the 
plotter editing program for the general map case is in Appendix II, and for the 
special MMS map case Appendix III. The editing programs were written for a 
UNIVAC 1108 Computer using CALCOMP plotter commands. 

4. 2 General Map 

Taking the mylar base map, overlay it on top of each individual plot, 
and search for obvious errors like missing polygons, truncated or incorrectly 
digitized boundaries, extraneous lines, off registration, and control point 
errors. Small gaps and overlaps between polygon boundaries are normal and 
should not cause concern. Minor boundary errors are best repaired by locating 
the coordinates of the neighboring polygon’s common boundary, and substituting 
those coordinates in the problem polygon. To use this method, plot the problem 
border on graph paper marking the location of each coordinate. Note the begin- 
ning and end point of the error segment, and locate similar points in the 
neighboring polygon. 

Insert the correct coordinates and rectify the polygon's total number 
of points (NP) if there was a change. 
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This method Is rather tedious, however, so if the boundary error is 
serious, it is easier to throw out the polygon and redigitize it as a separate 
setup within the map. 

Often times the raw data cards become shuffled or blank cards manage 
to mix with the data. These types of errors show up as extraneous lines criss- 
crossing inside or through polygons. Off-registration is usually caused by the 
plotter, digitizer, or digitizer person losing origin. In most cases, the error 
can be corrected by determining the X and Y displacement, pulling the polygon(s) 
out, and treating them as a separate setup with their control points being a 
combination of the original control points and the displacement. 

If the general map was digitized in several setups rather than all at 
once, inspect the plot of each setup individually, then combine them (using the 
plotted control points) over a light table and check for off- registration, bad 
control points, and missing polygons. 

There are a number of errors that the visual inspection of the plotted 
maps will not find. Among these include incorrect land use codes (LUCODE), 
numbe r of points (NP), polygon types (PTYPE), and minimum- maximum coor- 
dinates. The plotter editing program printout is most useful in spotting these 
kinds of problems. Its main feature (other than to create the plot) is that it 
counts the number of points in each polygon, and prints that number out. The 
most common error by far, is an incorrect NP, and such an error will always 
abort the ROTATE program. The editing program also prints out the regular 
polygon information like MAPNO, LUCODE, POLYNO, NP, digitized data, 
etc. , but in an easily read format. 

The procedure for editing the NP is simply to scan the printout com- 
paring the computer counted NP against the digitizer's specified NP. This 
method not only catches wrong NPs, but also out-of-sequence header cards 
("polygon designation records") and min-max cards ("polygon limit record"), 
and also blank cards. As for checking the LUCODE and PTYPE, each polygon 
in the printout must be individually checked against the mylar base map. 

It is very important that no PTYPE errors pass uncorrected, as one 
error could falsify the polygon overlay area calculations of many neighboring 
polygons. For the same reason, if a polygon is removed for redigitizing as a 
separate setup (and all redigitized polygons must become separate setups). 
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careful note must be taken to determine If it is a polygon PTYPE 11 or greater. 

If it is, then all the polygons from the previous PTYPE 10 to the last PTYPE 11 
or greater in the series (i. e, , all polygons within the PTYPE 10) must also be 
redigitized in the new setup. This is because the polygon overlay program sub- 
tracts the area of all PTYPE 11 (or greater) polygons from the polygon they are 
within. Users should replot and reedit map setups in which there were a lot 
of errors. Redigitized polygons also should be replotted. Once all this editing 
is done, the raw digitized map file is ready to be inputted to the ROTATE 
program. 

4. 3 MMS Maps 

The MMS census tract plotter editing prpgram (Appendix III) produces 
two plots of each census tract. Along each line segment in the first plot, the 
sequence number describing the order in which the segment was digitized is 
printed. In the second plot, the block number of the polygon on either side of 
the segment is printed. The procedure for editing the MMS raw digitized map 
file involves the visual comparison of the plotted census tract shapes with the 
actual base map. 

The base map can be overlayed directly on top of the plot, but this 
method does not work well when the street (line) segments stimulate 
curved block boundaries as in hilly areas. The kinds of errors encountered 
include incorrect block numbers, double digitized street segments, missing 
segments, common nodes greater than tolerance (, 045 inch) apart, and incor- 
rectly digitized ‘’doughnut holes”. (A doughnut hole census block should be treated 
like a census tract, i. e. , the outside block number left blank. ) Between census 
tractvS, checks must be made to insure that the common boundaries are similar. 
Adding new nodes is accomplished by drawing an X and Y axis through a close 
existing node, measuring the X and Y displacement to the new node, and adding 
that displacement to the coordinates of the known node. (An existing node’s 
coordinates are located by referring to the sequence number of its line segment, 
then finding that line in the editing program printout. ) When the entire census 
tract has been corrected, it should be replotted and reedited again. 
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4. 4 CHAIN 

The next step is to run the raw digitized data through the CHAIN 
program, which will flag all the remaining uncaught errors and print the street 
segments in the bad census block. The error can be found by closely 
reexamining the census block's plot, or by manually CHAlNing the street 
segment coordinates in the printout until two nodes are found to be greater 
than tolerance distance (. 045 inch) apart. A common error is to have an 
incorrectly numbered street segment not only abort the census block it is missing 
from, but also the census block of the wrongly specified number. When using 
the CHAIN program for editing purposes, it is a good idea to modify the pro- 
gram so that it does not produce punched cards at each turn-around. When 
all the blocks finally CHAIN properly, the program can then be run conven- 
tionally to convert the digitized street segments to State Plane Coordinates. 


5.0 


ROTATE 


5. 1 Introductio n 

The ROTATE program is written in FORTRAN IV and produces a 
geographically true X and Y coordinate data base from raw digitized data 
referenced to any standard map system. These ROTATE corrected coordinates 
then act as input to PIOS (Polygon Information Overlay System) where polygon 
intersection statistics are calculated. Raw digitized coordinates such as those 
corrected by ROTATE are produced when geographically oriented researchers 
decide to incorporate thematically mapped data, like soils data, geological data 
or vegetative data into a LUMIS data base. These data maps when digitized are 
not usually assigned true X and Y coordinates, but rather coordinates that are 
relative to the digitizer table and the position of the data map to that table. 
Hence ROTATE’s purpose is to adjust those raw digitized coordinates to their 
relative true ground locations. 


5. 2 Methodology 

To produce geographically true X and Y coordinates the ROTATE pro- 
gram is broken into two major components. The first component ox^erates with 
the data cards prepared for each unique data map. These initial map setup 
records describe the geographic coordinates of the digitizer table origin, and 
the table -to -geographic coordinate system relationship from which a scaling 
factor and rotation angle are computed. In the first component of ROTATE 
there is a check that insures control point accuracies meet user specified 
tolerances. 


That check for control point accuracies requires a digitizer table-to- 
ground coordinate transformation. This transformation is solved by program 
ROTATE using a least squares solution having four unknown variables. These 
unknowns are; 


1 ) 

2 ) 

3) 

4) 


XO 

YO 


scos e 


Control map X axis ground location 
Control map Y axis ground location 
Scaling Factor S times the cosine 0 
Scaling Factor S times the sine 0 


SSin 0 


5. 2. 1 The scaling factor S is expressed in a ground coordinate system of 
feet per inch on the map. 


5. 2. 2 The rotation angle 6 representing the difference between the map 
orientation on the digitizing table and true North-South is expressed in degrees, 
minutes and seconds. The scaling factor and rotation angle are calculated 
from SCos 6 and SSin 0 in a simple triginometric equation. 

These variables are then used in the least square transformation 
equation R as follows: 


S ^ 


X + SNx 

Transformation Equation 


Scaling Factor 

(XO) 

(YO) 

Rotated Coordinates 

(Cos 6 Sin 6 
-Sin 6 Cos 6) 

Rotation Angle 

(XDi) , i = 1,M 
(YDi) 

Digitized Coordinates 

(Xi) , i = l.M 
(Yi) 

Surveyed SPC 


ROTATE uses the least square approach to increase the accuracy of 
the basic transformation equation. This approach will produce a transformation 
factor (SN) that when applied will change all digitized coordinates to their ground 
truth equivalents. In the transformation equation, surveyed X-Y coordinates 
(X) and digitized X-Y coordinates for the control points (x) are expressed as 
arrays, M sets in length. 


5, 2. 3 The surveyed control points (Xi, Yi, i = 1, M) correspond to the 
digitized control points (XDi, TDi, i = I, M). In the transformation equation 
the error between surveyed and digitized control points is averaged using the 
least squares method. 


5. 2. 4 The transforma1 ;io n equation used in ROTATE creates two equations 
per control point, one for X apd one for Y, so only two control points are 
required, M = 2. However, the least squares solution can accommodate up to 
eight points. For greater accuracy the m'aximum number are suggested. 

Using the computed transformation factor, each digitized control point X and Y' 
coordinate is entered into the equation and the measured coordinate is solved 
for. If this computed equivalent of the surveyed X-Y coordinate is not found to 
be within the used specified tolerances (XOTOL, YOTOL, or THETOL), a mes- 
sage is printed out by the program indicating the degree of error and processing 
is stopped. 

For example, a tolerance of 0. 045 was used in the LUMIS Santa Monica 
Mountains Study. This was felt appropriate because LUMIS is a block level sys- 
tem and the boundaries should rarely be in error of more than the width of a 
secondary street, 84 ft. At a scale of approximately 1 inch = 2, 000 ft. , an 
error of 0. 045 inches on the digitizing table corresponds to a geographical 
ground error of 90 ft. 

Once the equation is formulated and tested the remaining polygons are 
rotated through angle 0 and scaled by the factor S. Each map set up must follow 
this same procedural construction of an equation, testing and processing of the 
polygons which follow. 

5. 3 Program 

ROTATE written in FORTRAN IV, consists of a main program having 
two phases, and two subroutines. The subroutines perform matrix inversion 
and multiplication required by the least square algorithm. The main program 
itself is divided into two logical phases. 

5. 3. 1 Phase 1. The main program first phase calculates the unknown in a 
least squares equation for each map set-up from the calculated and the digitized 
control coordinates. The equation is tested by reentering the digitized control 
points to determine if the calculated control points can be found within user 
specified tolerances. \ 
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5.3.2 Phase II. Tke second phase reads data points for each polygon, enters 
them into the equation formed in Phase I. It then makes the adjustment in the 
digitized coordinates for rotation angle and scaling factor, and writes the 
adjusted coordinates to an output file. 

There are two subroutines used in ROTATE, RATMUL and INVERSE. 
Subroutine RATMUL multiplies a matrix times its transpose. The regression 
algorithm performs this task on the original digitized matrix and on its inverse 
as part of the least squares formula. Subroutine INVERSE defines the inverted 
matrix of the original digitized data and its transpose. 

5. 3. 2. 1 Input. The ROTATE program uses as its input a card file with the 
following sets of information: the control specifications, the digitized calculated 
control points, and the digitized polygon min-max and boundary points. Figure 8. 

5. 3. 2. 2 Output. The ROTATE program produces as output a listing of trans- 
formation solution, rotation angle and a scaling factor, input digitized coordi- 
nates for each polygon, a listing and deck of transformed geographic coordinates, 
and any error condition messages that are invoked. 

5. 4 Overall Specifications 

The polygons are entered as sets (KSET) within an established geographic 
reference system, or map setup. One map may be coded as one or more setups 
depending on the number of times a reference is required. The first card in the 
deck is coded as follows: 

COL 5 


r 4 

KSET 

5. 5 Phase 1 Specifications 

Phase I requires as input the following information: map tolerance 
record, control reference record, digitized reference record. 
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5, 5. 1 Map tolerance record establishes the limits in calibration of the 
digitized coordinate reference points and the overall parameter of the polygon 
to follow. _ ,, 

.f (I 

NPOLY - Total number of polygons for a map setup. 

M - Number of control points provided as calculated and 

digitized reference records. 

XOTOL, YOTOL, THETOL, user specified tolerance levels in the solu- 
tion of digitized origin (XO, YO in inches) and the rotation angle (6 - in 
minutes of arc) between digitized map and accepted reference source. 


COL 5 



48 

NPOLY 


10 


7 

M 


20 30 40 


. 045 . 045 . 500 

XOTOL YOTOL THETOL 


5. 5. 2 Control reference points are calculated from an existing reference 
source by the user. They are given in tenths of a foot without a decimal point. 
In this case the control points are in California Zone 7 State Plane Coordinates, 
but any legitimate earth coordinate system is acceptable. One through M 
coordinates are coded with four or less pairs per card in the following format: 


COL 


18 


27 


36 


ETC. 


72 


44349278 
X(l) 


42471232 

Y(l) 


X(2) 


Y(2) 


ETC. 


5. 5, 3 Digitized reference points are entered in the same order as the control 
reference points in thousands of an inch, without the decimal point. One through 
M coordinates are coded with six or less pairs per card in the following format: 


COL 


12 


18 


24 30 36 ETC... 


72 


+24789 +123436 

XD(1) YD(1) XD(2) YD(2) 




ETC. . 


Upon completion of Phase I the user will receive a message as to the 
status of the job. The message indicates the calculated scaling factor and 
rotation angle. If the transform equation fails the tolerance checks, an error 
message appears. 

Problems that arise in rotating data points include syntax errors 
and/or incorrectly digitized or poorly placed control points. In either case, it 
is suggested that the program's punched output be deleted until a normal termina- 
tion is achieved in the first phase. 

There are two possible means to correct the error condition without 
redigitizing the control points: either reduced the number of data points or 

increase the acceptable tolerances. Since a minimum of two points are required, 
it is possible to discard all but the last two data points. In the cases where 
variation is slight, the acceptable tolerance can be increased. 

In extreme cases of inaccuracy or when the data points are poorly 
placed, i. e. , too close together or in a linear arrangement, they should be 
recoded. Recoded control points should make use of the old points, adding only 
those control points necessary to correct the problems of improper placement. 

5 . 6 Phase II Specifications 

If Phase I is completed without errors. Phase II begins with a polygon 
description record, polygon limit record, and polygon boundary record. One 
set of these records are required for each polygon digitized (NPOLY) in a map 
setup (KSET). 

5. 6. 1 Polygon descriptor record contains control information for each polygon: 

MAPNO: Map number for the digitized polygon. 

MAPOL: Total number of polygons on a map. This could, but does 

not necessarily equal NPOLY (number of polygons in a map 
setup). 

( ' 7 

LUCODE: Identifying information code. 


POLYNO: 

PTYPE; 


Sequence number for polygon, 1 to MAPOL 

Designates doughnut polygons, or polygon without polygons; 
normal polygons are digitized number 10. Numbers 
larger than 10 indicate succeeding doughnut polygons. 


COL 


5 10 13 17 19 


11005 
MAP NO 


62 A05 104 12 

MAPOL LUCODE POLYNO PTYPE 


5. 6.2 Polygon limit record. One limit record is required for each polygon. 

It should be noted that the output polygon limit record contains the SPC minima 
and maxima, not the transformed digitized minima and maxima (if the rotation 
angle is large enough, the two sets of minima and maxima may be the same). 
These limits (in SPC's) are important since they "box in" the map polygons for 
efficiency in the PIOS overlay techniques. 

XMIN, YMIN, XMAX, YMAX: The minimum X, minimum Y, maxi- 
mum X, and maximum Y digitized coordinates respectively of the polygon. 

NP: Total number of digitized coordinates in polygon. Format follows: 


COL 6 12 18 24 27 


+02222 

XMIN 


+23150 +04444 25179 

YMIN XMAX YMAX 


476 

NP 


5. 6. 3 Polygon digitized boundary records . One set of digitized coordinates 
is required for each polygon. 

XD(1), YD(1), ---XD(NP), YD(NP): Digitized coordinates of polygon. 
Format follows: 


COL 6 12 18 24 30 36 ETC 72 


+02256 

XD(1) 


+23190 

YD(1) 


XD(2) 


YD (2) 
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5. 7 Program Output 

The program produces a card file which can later be used directly in 
PIOS as the minor polygon file. The cards are grouped by polygon with a 
control card, minimum-maximum card and polygon record description. 


5. 7. 1 The control card contains the following data formatted as indicated: 


Column 

F ormat 

Descriptor 

1-5 

15 

Polygon Descriptor (MAPNO) 

6-10 

15 

Number of Polygon on a Map (MAPOL) 

11-13 

A3 

Land Use Code Identification (LUCODE) 

14-17 

14 

Sequence Number of Polygon (POLYNO) 

18-19 

12 

Polygon Type, complete or Doughnut Polygon 
(PTYPE) 

5. 7. 2 The minimum and maximum record is formatted as follows: 

Column 

F ormat 

Descriptor 

1-9 

19 

Minimum X coordinate value of the 
Polygon (XMIN) 

10-18 

19 

Minimum Y coordinate value of the 
Polygon (YMIN) 

19-27 

19 

Maximum X coordinate value of the 
Polygon (XMAX) 

28-36 

19 

Maximum Y c -ordinate value of the 
Polygon (YMAX) 

37-41 

15 

The number of coordinate pairs describing a 
Polygon (N) 

5. 7. 3 The boundary record is recorded as X and Y values in a 819 format, 

four pairs per card. The number of cards to follow is determined by the data 


points N divided by four rounded up. 


CHAIN 


6.0 


6. 1 Introduction 

CHAIN was created to prepare a coordinate data base, referenced to a 
standard geographic coordinate, as input to PIOS (Polygon Information Overlay 
System) from a raw digitized street network and political boundary such as a 
metropolitan map series. 


6. 2 Methodology 

CHAIN also makes use of the basic least squares transformation 
equations with four unknowns developed for ROTATE. The table -to -ground 
equations use the same unknowns as those in ROTATE; 


1) XO Control map X axis ground location 

2) YO Control map Y axis ground location 

3) SCosG Scaling Factor S times the cosine 6 

4) SSinG Scaling Factor S times the sine G 


The scaling factor S is expressed in a ground coordinate system of 
feet per inch on the map. 

Two to four control points are required by the CHAIN Program. 

Since the original MMS maps are more accurate than ordinal input maps used 
by ROTATE, four coordinates are sufficient to maintain the same level of 
accuracy as eight in ROTATE. The least squares solution is again tested 
against user specified tolerances. 

CHAIN also incorporates an algorithm to link segments by node coordi- 
nate around digitized blocks and to produce multiple records for those units 
which a boundary segment must use twice. 

CHAIN must link digitized street segment nodes and check the polygon 
for completeness before segments can be transformed. Thus CHAIN will cor- 
rect for minor digitizing errors or point to the node where major errors exist. 
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The technique used to build the block file starts by digitizing records 
for each link of the block shown in the top half of Figure 9. 

Looking at Blocks 101, 102, 109, s-nd 110, the coordinates are digitized 
in the following manner: 



Block Lft 

Block Rt 

Begin 

X-Y 

FHD 

X-Y 

1) 

101 


+03759 

+04222 

+03900 

+04250 

2) 

101 


+03910 

+04260 

+03915 

+04500 

3) 

109 


+03910 

+04533 

+03902 

+04800 

4) 

102 


+03688 

+04292 

+03710 

+042 62 

5) 

102 

no 

+03773 

+04503 

+08523 

+04472 

6) 

110 

109 

+03756 

+04522 

+03756 

+04725 

7) 

102 

101 

+03733 

+04251 

+03766 

+04509 

8) 

101 

109 

+03937 

+04522 

+03777 

+04502 


In the Chaining Program each record which has two sides, (5) (6) (7) 
and (8) are ’’reversed - duplicated, ” that is the left block becomes the right 
block, from and to coordinates are reversed, and the segment is duplicated. 

Segments not under consideration are then ”era,sed” from the duplicated 
file. These records, tract boundary records, will be considered at a later time. 

The file is sorted by the left block producing the file shown in the 
bottom half of Figure 9* The coordinates are then ’’matched” by ending and 
beginning nodes for each block according to user specified mapping tolerance 
(XOTOL, YOTOL). Cul-de-sacs fall at the end of each block segments. They 
are retained only for graphic presentation and do not provide any information 
to PIOS. 

The coordinates accepted by the CHAIN edit program are averaged, 
and transformed to state plane coordinates. 
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SAMPLE MAP SHOWING SEGMENT IDENTIFICATION 
FOR BLOCK 101 


BLOCK BLOCK 



LEFT 

RT 

FROM 

X-Y 

TO 

X-Y 

(1) 

101 


403759 

404222 

403900 

* 

404250 






I 


(2) 

101 


♦ 

403910 

404260 

403915 

t 

404500 

(8) 

101 

109 

f 

403937 

404522 

403777 

t 

404502 

(7) 

101 

102 

403766 

404509 

403733 

♦ 

404251 

(4) 

102 


403688 

♦ 

404292 

403710 

i 

404262 






1 


(7) 

102 

101 
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BLOCK CHAINING TECHNIQUE USED BY THE 
CHAIN PROGRAM FOR SAMPLE MAP SHOWN 


Figure 9. Block Chaining 


6. 3 Program 


CHAIN makes use of block boundary segments digitized as single lines 
separating two units left and right. The program checks for a complete set of 
boundary elements surrounding each block and splits the boundary segments 
into left and right corresponding to their respective blocks. It then transforms 
the block file coordinates from a table coordinate file to a standard geographic 
coordinate system, maintaining scale and table rotation limit checks. 

The CHAIN Program is written in three phases. 

Phase I ; 

Determines, for each census tract, the geographic coordinates of 
the digitized X-Y origin, map scale, rotating angle to convert 
digitized coordinates to a standard reference system arid tests to 
determine if control points exceed user specified tolerance. 

Phase II ; 

Reverses and duplicates segments which are boundaries for a block 
coded with left and right geographic codes and produces a complete 
boundary file for each block. 

Phase III ; 

Transforms the standard scale and rotation angle of the polygon 
produced in Phase II, and converts all records for each tract so 
they will conform to the geographic reference system established 
in Phase I. 

Control coordinates must fall within accepted limits and blocks must 
chain, i. e. , start and end on the same node, to be continued into Phase III, 
transformation. Failure of the file Phase I or II will generate an error mes- 
sage and stop processing, 

6. 3. 1 Input . The control specifications, digitized and calculated control 
points, and digitized segment file are shown in Figure 10. 

6* 3. 2 Output . Output includes a listing of the transformation solution, rotation 
and scaling factors, input digitized coordinates, listing and deck of transformed 
geographic coordinates, and any error messages that are invoked. 











6. 4 Overall Specifications 

Blocks are digitized as units in a tract, therefore geographic reference 


control points must be established per each tract. Each map contains one or 
more tracts. 


COL 5 



record, control reference record, digitized reference record. 

6. 5. 1 Map tolerance record establishes the limits in calibration of the 
digitized coordinate reference points and the overall parameter of the polygon 
to follow. 

NNPOLY - Total number of blocks in a tract. 

M - Number of control points provided as calculated and 

digitized reference records. 

XOTOL, YOTOL, THETOL, user specified tolerance levels in the solu- 
tion of digitized origin (XO, YO in inches) and the rotation angle (0 - in 
minutes of arc) between digitized map and accepted reference source. 
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6. 5. 2 Control reference points are calculated from an existent reference 
source by the user. They are given in tenths of a foot without a decimal point. 

In this case the control points are in California Zone 7 State Plane Coordinates, 
but any legitimate earth coordinate system is acceptable. One through M coordi- 
nates are coded with four or less pairs per card in the following format; 


COL 


18 


27 


3 6 ETC, . . , 


72 


44349278 424712321 

X(l) Y(l) X(2) Y(2) 


6. 5. 3 Digitized reference points are entered in the same order as the control 
reference points in thousands of an inch, without the decimal point. One 
through M coordinates are coded with six or less pairs per card in the following 
format: 


COL 6 12 18 24 30 36 ETC... 72 


+24789 

XD(1) 


+12345 

YD(1) XD(2) 


YD (2) 


Upon completion of the Phase I, the user will receive a message as to 
the status of the job. The message indicates the calculated scaling factor and 
rotation angle. 


6. 6 Phase II Specifications 

If Phase I is completed without errors, Phase II requires link records 
for each street segment in a census tract. 

Street segment record . Each record contains the left and right census 
tract/block for a segment and the beginning and ending coordinates. If a 
segment is missing a tract/block right, the coordinates are coded but the right 
position is left blank as shown in Figure 11. 

ITLEFT = Tract/block left of street segment (1 to MPOLY) 

ITRITE = Tract/block right of street segment (1 to NPOLY) 
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XL., YL = X and Y coordinates of the beginning node for a segment. 
XR, YR = X and Y coordinate of the ending node for a segment. 

COL 9 18 26 32 38 44 

( 137411020 137411 lb"0 +03773 +04503 +03623 +04492 

ITLEFT ITRITE XL YL XR YR 


7. 0 DIME AREA CENTROID SYSTEM (DACS) 

7. 1 Introduction 

The DIME Area Centroid System (DACS) was modified and adapted to 
the LUMIS project as an alternative to the CHAIN program to create a census 
tract/block polygon input to PIOS (Polygon Intersect Overlay System) from the 
DIME file. The DACS program translates a segment record structure used in 
the DIME file to a single sided polygon outline file which is used by PIOS. 

DACS was originally developed by the Census Use Study, a Division of 
the Bureau of the Census. It was designed to produce edited and reformatted 
subfiles from the original DIME format. The subfiles can be used in computer 
mapping; area calculations, and adjacency problems. The editing feature 
allows the user to correct the file at the same time. 

This documentation describes the basic program logic, and data input 
and output files in the program. This version includes corrections and modifi- 
cations made by the Jet Propulsion Laboratory to create a PIOS input file. The 
program and modifications are written in FORTRAN IV for use with an IBM 
360/370 computer, but can be adapted to other systems. 

7. 2 Methodology 

DACS is written in three phases. These phases deal with the creating 
of a single sided segment intermediate subfile, a sort, and editing and reformat- 
ting an output file. 

An intermediate subfile is created from all boundary segments for a 
selected region: census tract, census block group, or block which is identified 
by having two different right and left regions. The data for each boundary is 
written to the subfile twice, once unaltered as the boundary to the first polygon, 
and then with the beginning and ending node reversed to crea^te a boundary for 
the second polygon. The final file contains separate records for each left 
boundary using counterclockwise orientation, and true records for the right 
boundary. 
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In Figure 12 segment A to B has a left side with census tract 1011. 00 
block 101 and a right tract of 1013. 00 block 101. The first segment is written to 
the subfile as tract 1011. 00 block 101 and coordinate for nodes A to B. The 
second segment is for tract 1013.00 coordinates from B to A, putting that tract 
on the left side with relation to this X- Y coordinate. 

In the sort step, the subfile is sorted from the leftmost region in 
preparation for the third step. 

In the third step, the program edits the file, performs any necessary 
calculations and reformats the output. All the boundary lines for one region 
are read in and stored. The array is then passed to the chaining edit program 
to determine if the segments are for ontrbr more closed loops. If the segments 
do not close, the user is notified of the condition by a printed message and all 
calculations are skipped, (see Figure 13A). If the segments form more than one 
closed loop (Figure 13B), a message indicating the condition is printed, but in 
this case calculations are not allowed to proceed. 

Regions accepted by the chaining test are passed to routines to calculate 
the centroid coordinates and the area, build lists of adjacent regions, or reformat 
the segments for use in mapping and overlay programs. The complete documen- 
tation for area, adjacency and centroid routines is available through the Census 
Bureau. 

The subroutine to reformat the DIME file for PIOS input is appended to 
the third step of DACS. The subroutine first modifies the tract and block 
identifiers by removing the case to form the description record. Minimum and 
maximum coordinates are determined through a simple logical test, at the same 
time counting the number of coordinate pairs to form the second polygon record, 
minimum and maximum coordinates. Finally the X, Y coordinates which 
describe the polygon are written to_a, subfile in sets of four as specified for 
PIOS input. ^ f 

7. 3 Progr am ^ 

The DIME Area Centi*i)id System (DACS) consists of two programs 
designed to calculate areas and locate centroids of user-specified blocks, tracts, 
block groups, or other local areas defined in a DIME File. For each region 


1011.00 


1013.00 


Map showing boundary segment A-B dividing census tract 1011. 00 
and 1013. 00. Each segment in the DIME file is identified by both 
the left and the right geocodes making each polygon independent. 
DACS can then convert DIME files into complete polygon boundary 
description for PIOS input. 

Figure 12. Boundary Segment Dividing Census Tract 




Examples of two possible polygons edited by tils DACS program. 

A. A block which will not chain. 

B. A block which chains, but with hnore than one closed polygon. 


Figure 13, DACS Edited Polygons 







considered, DACS produces, at user request, a tape listing X and Y coordinates 
of the boundary segment endpoints forming the polygon vertices and/or type and 
printed listings of adjacent regions. The centroids and boundary coordinates 
are useful as input to computer mapping programs such as GRIDS and SYMAP, 
and as input to polygon overlay programs, such as PIOS. 

Errors and anomalies in the area and centroid values, identified by 
the program, are helpful in locating coding errors in the input file. 

DACS is written as a preprocessor, sort and calculation program. 

These are used in three distinct phases. 

Phase I ; 

The first program, DACS presort, uses an input DIME file tape to 
prepare an intermediate file; the intermediate file passes the 
control parameters and the selected boundary segments will be 
used in the calculation program; thus two programs can be thought 
of as phases of the same program. 

Phase II ;; 

The second phase sorts the output from the preprocessor so that 
all the segments from a region will be in one location on the file. 

Phase III ; 

The third phase performs the actual computations, edits the file 
and writes any output files. It reads the sorted intermediate tape 
and stores segment data for a region internally. When the first 
record for a different region is encountered, the accumulated data 
is passed to subroutine CHAIN. 

Subroutine CHAIN checks to see if the region^s boundary segments form 
one or more closed loops. If they do not, a message to notify the user of the 
condition is printed, and calculations are skipped. If they form more than one 
closed loop, another message is printed; however, in this case, calculation is 
allowed to proceed. 

Data for a valid region is used in subroutine CALC, which computes 
the area and centroid coordinates. Subroutine POLYPT then determines 
whether or not the centroid lies within the region boundary. If it lies outside 


the boundary, an appropriate message is printed, and the centroid X and Y 
coordinates are set equal to those of the nearest boundary segment node. Sub- 
routine REFMT reformats the data into a file which can be used by PIOS. 

There are a maximum of four output tapes created by DACS. The area 
and centroid data, with identifying region number, are written onto the first 
tape, a mapping file onto a second tape, an adjacency file is written onto a 
third, and PIOS formatted file is written to a fourth tape. 

7. 3. 1 Input . The preprocessor program uses a standard 300 character 
formatted DIME file or a binary file depending on the user specification and the 
control parameters. The control parameters are read as cards and passed to 
the second program as the first input record. 

7. 3. 2 Output . Four output files can be produced by DACS. A file of polygon 
areas and centroids is created in each run as a standard output. The remaining 
files are optional, and a mapping file, an adjacency file and a PIOS formatted 
file. 

The mapping file consists of endpoints or vertices of each region*s 
boundary segments. The record to describe a polygon is written in succession 
and in a format usable by SYMAP. 

The adjacency file lists all regions bordering the region analyzed; one 
adjacent region is listed per record, and all records pertaining to a region 
occur in succession. 

The PIOS compatible file is an 80 character file similar to the mapping 
file, but is formatted differently. Each polygon has a description record, min- 
imum and maximum X, Y coordinates and the vertices written as four per 
record. 

DACS will also list the polygon's area, and its centroid coordinates — 
or an adjacency list at the user’s request. 

The user is continuously notified of error conditions. Possible error 
conditions include improperly defined regions and diiomalies in centroid 
location, as well as errors in the coding of the original DIME file. 
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Possible file error conditions can occur because: 

a) The polygon has more than 2000 segments, 

b) The segments form more than one polygon. 

c) The segments do not close, 

d) A segment on the file must be reversed before proceeding with 
processing. 

e) The centroid of the polygon falls outside the polygon and must 
be adjusted. 

The polygon only stops processing in case a) or c); in all other cases 
a warning is printed and processing continues. 

7. 4 Phase I Specifications : 

DACS preprocessor, Phase I, has two input types: a card deck and the 
tape file. The card deck passes control specifications to the program to deter- 
mine the input and output selections, and the area of study. The first card, the 
problem card, selects the user options. This is followed by a series of cards 
which selects the required census tracts, blocks, etc, contained in the study 
area. 

If SELECT cards are included, the program performs calculations 
only for the regions identified by the cards; if REJECT cards are included, it 
considers all regions except those identified. If neither SELECT nor REJECT 
cards are used, the program calculates areas and centroids for all regions in 
the file. 

Input: Profile Cards 

File — Type of input file 

I- 6 character or binary 

KALL — Type of region to be considered 

II- 14 TRCS for tracks 

BLKS for blocks 

RGNS for regions identified by area codes 

BGPS for block groups; if left blank, the program assumes 

tracts are desired. 
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CODE — Type cards used to define the study area, 

19-24 selection or rejection 

SELECT if selection cards follow 
REJECT if rejection cards follow 

Blank if neither selection nor rejection cards are included. 

ELECT •— Type of region specified on selection or 

27-30 rejection cards to follow. 

TRCS for tracts 
BLKS for blocks 

RGNS for regions identified by area codes 

BGRP for block groups 

Blank if no cards are included. 

AREA — Units in which area is to be calculated 

46-49 SQFT for square feet 
SQMI for square miles 
ACRE for acres 

If left blank, the program will calculate areas in square feet 
OPTION — Optional output file specified. 

59 1 if printout of areas and centroids desired 
0 if printout not desired 

60 1 if tape with SYMAP boundary coordinates desired 
0 if tape not desired 

61 1 if "adjacency list" is to be produced (tape and printer) 

0 if "adjacency list" not desired. 

62 1 if tape with PIOS boundary coordinate desired 
0 if tape not desired. 

TITLE — Title that will appear at the top of each page of 
69-80 printed output. 

COL 6 14 24 30 49 62 69 80 


BINARY TRCS SELECT TRCS SQFT 0100 CENSUS 



SELECTION/REJECTION CARDS. ONE CARD 

For each tract, block, or region to be selected or rejected. 

If regions specified are tracts; 

1-3 Blank 

4-9 Tract number 

If regions specified are blocks: 

1-6 Tract number 

7-9 Block number 

If regions specified are identified by area code: 

1-6 Blank 
7-9 Area Code 

If regions specified are block groups 

1-2 Blank 

3-8 Tract number 

9 Block group number 

Restrictions and Assumptions 

Number of selection/rejection cards = 2000. 

Number of boundary segments for any region specified = 2000 

C 9 6 9 9 8 9 

103100101 f 

BLOCK 

SELECTION SELECTION SELECTION SELECTION 
Input; tape 

A standard Census Bureau tape is the second input to DACS preproces- 
sor. The program will accept either a standard 300 byte character file or a 
324 byte binary file as input. 

Output: tape 

The output from DACS preprocessor is an intermediate tape file with 
information about output options and a description of all boundary segments 
selected from the original ACG-DIME File. 
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The first record of the tape is the control record. 
Format is as follows; 


Columns 

Format 

Data Item 

19-29 

Fll. 0 

Multiplier, to convert calculated area to 
proper units. 

30-33 

A4 

Units (SOFT, SQMI, or ACRE) 

34-37 

A4 

Region type (TRCS, BLKS, BGRP, or 
RGNS) 

38-41 

411 

Code to specify selection of output options 

42-53 

3A4 

Title, to appear on output page 


The remainder of the records describe the boundary segments. 

Boundary segments are those having different "right" and "left" 
regions. Data for each such segment in the original file is written twice on the 
intermediate tape-once with its original orientation, once with orientation 
reversed (i. e. , with "left" and "right, " "from" and "to" designations switched). 

Format for each segment re :ord is as follows: 


Columns 

Format 

Data Item 

1-9 

19 

‘*Left’* region 

10-18 

19 

'*Right'' region 

19-27 

19 

Segment serial number 

28-37 

19 

'*From** node 

38-47 

19 

'*To” node 

48-57 

19 

^^Frorn’* node x coordinate 

58-67 

19 

**From*' node y coordinate 

67 bytes 


Record length 


7. 5 Phase II Specifications ; 

Before it is used as input to the DACS calculation program, the tape 
must be sorted by "left" region (Columns 1-9). 


I 


7. 6 Phase III Specifications ; 

The calculation program requires very little user involvement with the 
exception of JCL requirements. 

Input: The calculation program accepts the output file from the sort 

step directly without modification. 

Output: The program has one output tape that is standard with three 

additional optional tapes. 

Area-centroid tape is a file with the polygon area and its centroid pro- 
duced on each run. The record format is as follows: 


Columns 

Format 


Data Item 

1-10 

no 

The key used in the selection of block, track, 
block group, block or right justified block 
group is preceded by tract number or 
local area. 

11-30 

F20, 5 

Area (in user 

-specified units) 

31-40 

no 

Centroid 

coordinate (map miles) 

41-50 

no 

Centroid ”y” 

coordinate (map miles) 


Record length = 50 bytes. 

The ’^computer mapping” option produces a tape with coordinates of 


end point modes of each region’s boundary segments, all pertaining to a particu- 
lar region occurring in succession. Output is written to File 11. 

Record format as follows: 


Columns 

Format 

Data Item 

11-20 

FIO. 0 

‘■'From" note y coordinate. 

21-30 

FIO. 0 

"From" node x coordinate. 

70-76 

17 

Number of left-hand tract, block, block 
group, or local area. 

77-80 

13 

Sequence number of segment in the list of 
boundary segments for the region. 


Record length = 80 bytes. 
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The ^'adjacency list” tape option produces a tape containing a list of all 
regions (blocks, tracts, block groups, or special local areas) bordering on each 
region considered. One adjacent region is listed per record, and all records per 
taining to a particular regioh occur in succeeding records. Output is written to 
File 12. 

Record format is as follows: 

Columns Format Data Item 

1-15 115 Region number 

15-30 115 Adjacent region number 

Record length = 30 bytes. 

The ”PIOS data file” tape has three record types; description record, 
minimum maximum coordinates, and polygon boundary record. Output is 
written to File 13, Record format is as follows: 


Record Type 1 


Columns 

Format 

Data Item 

1-5 

15 

Census tract ID deleting first digit of 
s uf f ix. 

6-10 

15 

Block ID deleting first digit of suffix. 

11-13 

A3 

Block ID — first three numbers 

14-17 

14 

Sequence number. 

18-19 

12 

Polygon type 

Record Type 2 


Columns 

Format 

Data Item 

1-9 

19 

Minimum x coordinate 

10-18 

19 

Minimum y coordinate 

19-27 

19 

Maximum x coordinate 

28-36 

19 

Maximum y coordinate 

37-41 

15 

Number of coordinate pair describing 
polygon. 


Record Types 
Columns 

Format 

Data Item 

1-9 

19 

X Value 

10-18 

19 

Y Value 

19-27 

19 

X Value 

28-36 

19 

Y Value 

37-45 

19 

X Value 

46-54 

19 

Y Value 

55-63 

19 

X Value 

64-72 

19 

Y Value 


Printed Output 

For the properly defined regions considered, the user may request 
printout of area and centroid coordinates and/or a polygon adjacency list. 


POLYGON INTERSECTION OVERLAY SYSTEM (PIOS) 


8 . 0 

8. 1 Introduction ; 

The polygon overlay program is part of the PIOS (Polygon Intersection 
Overlay System); it uses output data from the ROTATE and CHAIN programs 
to compute statistics for major and minor polygon intersections. PIOS was 
originally developed for the San Diego Comprehensive Planning Organization 
(CPO by Environmental Systems Research Institute (ESRI) of Redlands, 
California). The system was designed and implemented in 1971 under a contract 
from CPO to ESRI to digitize soils polygons for San Diego County and then 
quantify soils type within Traffic Analysis Zones (TAZ), which are 
nominal statistical areas used for planning purposes by CPO. 

This documentation describes the program logic and the data files of 
the Polygon Information Overlay System program Version 75, (PIOS-75). This 
version includes the modifications which the Jet Propulsion Laboratory has 
made to PIOS II, in order to accommodate a specific land use polygon overlay 
problem. This modified version retains PIOS II, which was created for the CPO 
in San Diego. PIOS-75 will run on either the Univac 1108, or the IBM 360/370 
computers. 

8. 2 Methodology ; 

PIOS numerically overlays any general set of ordinarily defined poly- 
gons. These are identified as a major and a minor polygon, and their overlay 
produces a residual polygon of their intersections. This residual polygon can 
be overlaid with a third polygon, and so forth, each overlay producing a residual 
polygon of common intersection. This overlay system is conceptually similar 
to a "cookie cutter. " 

The census blocks are the major polygons in the overlay technique 
employed in LUMIS. In the Los Angeles test eight digitized ordinal maps 
became the minor polygons. Major polygons, after processing with the polygon 
overlay software, contained the information overlaid from the minor polygon. 
These minor polygons while proposed were never created from land use and 
natural resource maps, slope maps, elevation maps, geology maps, leindslide 
and fault maps, soil maps, and air pollution indices. 
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PI OS reads ail minor (land use) polygons and stores their approximate 
location, i.e. , the minimum and maximum boundaries or window. The window 
technique allows complex polygons to be treated as boxes which are sorted and 
manipulated in their general format until a more accurate definition is required. 
This technique permits more efficient computational analysis o:| a complex 
polygon file. 

Having windowed the minor polygon file and stored it in a temporary 
direct access file, the program reads the major polygon file (census blocks). 
Before any analysis of overlapping polygon takes place the program breaks up 
the major polygon into strips (see Figure 14). New points are generated at strip 
boundaries so that each strip is wholly contained. 

The logic of this stripping technique is not unique, but it does provide 
for substantial increase in program efficiency. Briefly the strips reduce the 
amount of core storage required by the program by only retaining that portion 
of the polygon that is being analyzed for intersection at one time. The number 
of strips is determined by the tradeoff between efficiency gained in the pro- 
cessing, and the core storage requirements necessary to run the program. As 
the complexity of polygons increases, the efficiency gained by increasing the 
number of strips also increases. The point-in-polygon technique uses directed 
line segments in the positive X-direction of slope zero; line segments so 
directed will not cross over onto another strip. For the LUMIS test the major 
polygons were broken down into 16 strips of equal height. 

After the major polygon (census block) has been stripped a minor poly- 
gon (land use) is read in to compute the intersection points, if any. Each point 
in the minor polygon is tested for being in or out of the major polygon. 

If the minor polygon is determined to be inside the major polygon, 
there are three possible options. 

Case 1 — The land use polygon is completely and totally contained 
within the census tract polygon. 

Case 2 — The census tract polygon is completely contained within the 
land use polygon. 

Case 3 — Part of the land use polygon resides within the census tract 
polygon, and a residual polygon is formed. 
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In Case 1, PlOS-75 writes the entire land use polygon to the output 
file. In Case 2, the entire census tract polygon is written to the output file. In 
Case 3, PIOS-75 effectively cuts off and saves the part of the land use polygon 
which resides within the census tract. By creating two residual polygons from 
the original minor polygon, Figure 15 geographically displays Cases 1-3. 

In Case 3, each segment of a minor polygon must be analyzed individ- 
ually for being either completely inside, completely outside, or intersecting the 
major polygon. If the segment intersects the major polygon, it is entering or 
leaving. This is graphically pictured in Figure 16. 

Four possible actions taken are tabulated below: 

Example Action Taken 

A to B Throw away point A. Do not consider segment 

as part of polygon. 

B to C Find intersection B'. Determine direction on 

major polygon. Follow major polygon until it 
goes out of minor polygon F'. 

C to D Add points to the line segment defining the new 

D to E polygon being calculated. 

E to F 

F to G Find intersection F'. Determine direction on 

major polygon. Follow major polygon until it 
goes out of minor polygon B'. 

After selecting one of these actions, a new polygon is developed and 
subsequently computed for area. 

PIOS-75 will examine each land use polygon in sequential order while 
looking for a match. If after checking all land use polygons no match is found, 
the main program will request the next census tract to be read in for the same 
review. If it finds no match between any land use polygon and census tract poly- 
gon, the program will terminate. 
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CASE 1 


CASE 2 


CASE 3 


ENCLOSED ENCLOSED BLOCK SPLIT BLOCK AND 

LAND USE SPLIT LAND USE 

Figure 15. Example of Alternative Block and 
Land Use Intersections 


INTERSECTION 



Figure 16, An example of identifying unique polygons created by 
intersecting blocks and land use 




As part of the JPL improvements to PIOS, the program lists census 
tracts and blocks, the residual land use area, and percentage each makes of 
the entire tract per each run. The listing also includes those tracts for which no 
overlay was possible as well as those for which the entire census tract fell into 
one minor polygon. Further abstractions or summaries can be derived from the 
output listing to meet the users needs. 

The summary can be used as a preliminary means of checking for 
errors in the PIOS run. A better means for error checking is to sum all the 
residual areas and check the total against the original polygon as illustrated in 
Figure 17, A second supplemental program is provided for error checking. 

The second program uses as input the original minor polygon file (12) and the 
residual polygon file (14), 

The residual file must first be sorted by land use map and code, poly- 
gon number, census tract and block. The program will aggregate and list the 
residual polygon coded for a land use map and type and number. If the entire 
land use was overlaid, the listings should show the polygon as 100% overlayed 
by blocks. In case of partial overlay, the results can be used to estimate the 
amount of coverage. 

8. 3 Program : 

PIOS is used to determine the common area of two overlapping polygons. 
The program will overlay one or more '’major" polygons onto the "minor" poly- 
gon file. Each major polygon is compared with each miLnor polygon for possible 
overlap. Both the major and minor polygons have a predefined "window" asso- 
ciated with them in the form of minimum and maximum X and Y coordinates. 

If the major and minor "windows" overlap, then the program uses a specialized 
version of the relatively common point- in-polygon technique to determine if any 
overlap actually exists. If two polygons do overlap, a polygon representing the 
overlap area is structured using the existing coordinates of the major and 
minor polygons. Once the structuring process is complete, the area of the 
new polygon is calculated and sorted in a "residual’* polygon file for later use 
in tabular or graphic report generating programs. This process is illustrated 
in Figure 18. 
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Figure 18. Flow Chart PIOS Program 
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The program is written as a series of FORTRAN IV subroutines 
invoked by the main program DRIVER. 

Subroutine POLYRD (polygon read) is used to read each of the polygons 
in from the external file storage medium. The subroutine makes use of 
random- access techniques for reading both the major and minor polygon files. 

It also performs the function of calculating centroids from the coordinate arrays 
of simple and containment type polygons. 

The function LEVEL is used to provide level indicies for the polygon 
overlay procedure. Major polygons are "stripped" into 16 horizontal sections 
or levels. When the points in the minor polygon boundary are submitted for the 
point- in- polygon examination, the levels of the major polygon could potentially 
contain the minor point. Then, only the line segments which make up that level 
are used by the PIP subroutine. 

Subroutine PIP (point-in-polygon) determines whether a point on the 
minor polygon boundary is located inside or outside of the major polygon bound- 
ary. Establishing this relationship for each of the minor polygon vertices is 
the foundation of the overlay process. 

Subroutine STPSUB (step subroutine) is used in conjunction with the 
residual structuring process. In cases where the direction of digitizing is not 
known and an intersection of major and minor boundaries is encountered, this 
subroutine provides an indication of the direction to "step" next. 

Subroutine AREAOF is called by subroutine POLYRD to determine the 
area of a polygon, using the cross product. It also determines if the polygon 
has been digitized in the correct clockwise direction by the sign of the resulting 
area. If the polygon was digitized in the wrong counterclockwise direction, 
the polygon is reversed. 

8. 4 Input Files ; 

The input files to the polygon overlay program are both in the same 
format. The files are differentiated by the program in that one is considered 
as the major file, the other as the minor file. The choice of which is the 
major file is the users'. The major polygons are usually the larger polygons, 
and the minor polygons would normally be those that are wholly or partially 
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contained within the major polygon. The major polygon file is identified as 
File 11 and the minor polygon file is File 12. Polygons from File 12 are 
matched up with, or overlayed upon, data from File 11. In the LUMIS project 
the census block was the major polygon file and land use was the minor polygon 
file. Figure 19 illustrates the deck setup for PIOS. 

PIOS will process both simple and complex polygons. "Doughnut 
holes" within complex polygons will be written to the output file with negative 
acreages. This facilitates later summation processes and tabular reporting 
requirements. The only limitation on input files is that if a minor polygon file 
contains more than 1, 000 polygons, only the first 1, 000 will be used in the 
overlay process. Larger files can be processed by enlarging the internal 
storage arrays in the polygon overlay program, which increases the core 
storage requirements. 

\ 

8. 5 Output Files : 

The three files created by the PIOS are similar in content and some- 
what redundant: The residual file. File 14, is a polygon file that contains the 
areas that were found to be common between the major and minor polygons. 
Each polygon contains the tract and block number of the major polygon and the 
land use code, polygon number and type code of the minor polygon, the calcu- 
lated area of the polygon (in acres) and the coordinates of the polygon verticies. 

The second output file. File 13, is a condensed version of the residual 
file. It contains the same information for each polygon as the residual file but 
the boundary coordinates are excluded. This file is more efficiently used in 
tabular summation programs and reporting applications than the residual file. 

The third output file. File 15, is a condensed version of the census 
tract file. It contains the census tract and block identification and total area of 
census blocks. 

8. 5. 1 File 11 — Major polygon file. It is a direct access file with census 
tract and block records. The file contains records 80 characters in length. 
Each census block is made up of three record types: a descriptor record, a 
MIN/MAX record, and the boundary points. 
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The major polygon descriptor record contains basic identification 
information to describe the minimum and maximum points and the boundary 
record to follow. The following data names are used by the program: 

MAPNO: The census tract identification number is the census 

tract number with the first number of the suffix deleted. 
Since this number is always zero, it can be deleted to 
save space in later processing. 

MAPOL. 1 (2); The block number identification number is the 

or census block number with the first number of the suffix 

LUCODE (2); deleted. As in the case of the census tract, this number 
can be deleted without losing information. 

LUCODE (1): The block number is repeated in this space dropping the 

entire suffix. This number serves as a filler in pro- 
cessing the census tract file, but is important in pro- 
cessing the minor file. 

LUCODE (3): The map sequence number denotes the sequence in 

^ relation to all the census tracts coded in a map. 

MAPOL 1 (2): The polygon-type code describes the character of each 
polygon. A normal polygon is coded 10. Doughnut 
polygons, (polygons within polygons) are coded by 
numbers larger than 10, starting with 11. Two 
mutually exclusive doughnut holes are coded 11, while 
nested polygons follow in order: 11, 12, All 

digitized doughnut holes must follow the parent. 

COL 5 10 13 17 19 


r 


13511 


1010 


101 


10 


8. 5. 2 File 12 — Minor polygon file. It is a direct access with the land 
use or ordinal polygons. The file contains records 80 characters in length. 
Each land use polygon is described by three record types similar to the census 
tract input with minor modifications and different data names. 
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The record 1 minor polygon descriptor record contains basic 
identification information for the minimum and maximum points and boundary 
records to follow. 


The following data names are used in the Program: 

SPMAP: The identification number of the ordinal/iand use map 

that is being processed. 

SPPOLY (1): The total numbers of polygons coded using a map 

or identification number. 

SPCODE: 

SPCODE (1): The identification code identifies the land use type 

as defined in the land use map legend. 

SPCODE (3): The sequence number denotes the sequence in relation 

to the total number of polygons coded in a map. 

SPPOLY (2): The polygon-type code describes the character of each 

polygon. A normal polygon is coded 10. Doughnut poly- 
gons (polygons within polygons) are coded by numbers 
larger than 10, starting with 11. Two mutually exclusive 
doughnut holes are coded 11, while nested polygons 
follow in order: 11, 12, --. All digitized doughnut 

holes must follow the parent. 

COL 5 10 13 17 19 



8. 5. 3 Record 2 majo r/minor — min/max record. The Min/Max Record 
describes the extreme points of the polygon or the Minimum X and Y coordi- 
nate and the Maximum X and Y coordinate, and the number of coordinate pairs 
which will follow to describe the polygon's perimeter. 
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Column 

F o rmat 

Data Item 


1-9 

19 

xmin - The minimum x coordinate value 
of the polygon 


10-18 

19 

ymin - The minimum y coordinate value 
of the polygon 


19-27 

19 

xmax - The maximum x coordinate value 
of the polygon 


28-36 

19 

ymax - The maximum y coordinate value 
of the polygon 


37-41 

15 

n - The number of coordinate pairs 
describing the polygon 



8. 5. 4 Record 3 to 3+N/4 pu.irs major/minor record. Polygon boundary 
record (S) - This set of records describes the polygon boundaries in terms 
of X and y coordinate pairs starting with x, y to x, y 

Column F o rmat Data Item 

1-9 19 X value 

10-18 19 y value 

19-27 19 X value 

28-36 19 y value 

37-45 19 X value 

46-54 19 y value 

55-63 19 X value 

64-72 19 y value 

8. 5. 5 End of File records . A sequence of four 9's (9999) is recognized by 
the IBM 360/370 program as an end of file when located in bytes 1-4, A 
sequence of five 9's (99999) is recognized by the U1108 program as an end of 
file when located in bytes 1-5, The last two records of each direct access file 
(File 11, 12, 13 and 14) should contain these codes. 
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8, 6 Output: 

File 13 contains the residual polygon produced by the PIOS Program. 
Each record is stored on a direct access device as a 37-character record. The 
record incorporates the residual polygon census tract identification with the 
land use codes and the polygon area. The record output is in the following 
format: 


Column 

Format 

Data Item 

1-5 

15 

Census tract numbers of major 
polygon involved in the overlay. 

6-10 

15 

Block number of major polygon 
involved in the overlay. 

11-15 

15 

Band use map or minor polygon in 
overlay. 

16-18 

A3 

Band use identification information 
code. 

19-22 

14 

Polygon sequence number or land 
use involved in the overlay. 

23-37 

F15. 2 

Area of the residual polygon file. 


File 14 contains essentially the same descriptive information as 
File 13, the census tract and land use code in an 80-column format. It adds to 
this information a series of x and y coordinates that describe the residual polygon 
that is formed in the overlay process. 


8 . 6 . 1 Record 1 


Column 

Format 

Data Item 

1-5 

15 

Census Tract 


6-10 

15 

Census Block number 

11-15 

15 

Land use map 


16-18 

A3 

Land use map Identification code 

19-22 

14 

Sequence number 

of the land use 



polygon 


23-37 

F15. 2 

Area of the residual polygon 

38-80 


Blank 


Polygon Boundary Coordinate 

Pairs 


Record 2 thru 2+N/4 



Column 

Format 

Data 

Item 

1-9 

F9. 1 

^1 

Value 

10-18 

F9. 1 

Yl 

Value 

19-27 

F9. 1 

^2 

V alue 

28-36 

F9. 1 

^2 

Value 

37-45 

F9. 1 

X 3 

Value 

46-54 

F9. 1 

Y3 

Value 

55-63 

F9. 1 

X 4 

Value 

64-72 

F9. 1 

Y4 

Value 


File 15 is the second abbreviated file produced by PIOS. This file 
contains the same identification information found on the census tract descriptor 
record: tract, block, and sequence number. 



the final data item on the record. The record is 29 characters in length and 


written on a direct access device in the following format: 


Column Format 


Data Item 


1-5 15 Census tract number of major polygon 

6-10 15 Block number of major polygon 

11-14 14 Sequence number of block with census tract 

15-29 F15. 2 Area of the block 
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c STATE Plane coordinate calculation program (spccad 

5 FORMAT (15) 

10 FORMAT (I10»I5) 

15 FORMATC- GENERAL MAP N0.-»I10) 

30 FORMAT (8F10.1) 

32 FORMAT (- CONTROL POINT- t 1X» 12 ) 

35 FORMAT (4F10,3) 

40 FORMAT (2F10.D 
45 FORMAT ( ) 

50 FORMAT (- -) 

70 FORMAT (- 

80 FORMAT (- CONTROL POINT EXCEEDS ERROR FACTOR-) 

90 format (2F10.1»4Xt-ERROR-) 

INPUT NUMBER OF MAPS FOR WHICH THE CONTROL POINT SPC S ARE TO BE CALCULATED. 

1 READ (5.5) NUMAP 
DO 8 J=1 .NUMAP 
WRITE (6.70) 

WRITE (6.50) 

INPUT THE MAP NUMBER (MAPNO) AND TOTAL NUMBER OF CONTROL POINTS (NCONPT) 

READ (5.10) MAPNO. NCONPT 
i , WRITE (6.15) MAPNO 

WRITE (6.50) 

! DO 20 1=1. NCONPT 

I C 

i C THE XI. X2. X3. X4. Yl. Y2. Y3. Y4 SPC COORDINATES OF THE FOUR 2 1/2 MINUTE 

j C latitude-longitude INTERSECTIONS ARE READ IN. 

I " C 

READ (5.30) A.B.C.D.E.F.G.H 
WRITE (6.32) I 
WRITE (6.50) 

C 

C THE (SMALL LETTER X.Y) Xl. X2. Yl. Y2 DIGITIZER MEASURED DISTANCES ARE READ 
C 

C 0=X1 
C P=X2 
C Q=Y1 
C R=Y2 
C 

READ (5.35) .O.P.Q.R 
O = 0*2000.' 

P = P*2000. 

Q = Q»200U, 

R = R»2>j0<-. 







XI = A+0-K0/(0+R) )*(C-A) 

X2 = C+0-(R/(Q-fRI )*(C-A1 
X3 = B-P^(0/(Q+R) )*(D-B) 

XA * J-P-(R/(Q+R) )«(0-6) 

Y1 = E+Q-(0/(0+P) )*(E-F) 

Y2 * F+U-t-(P/(0+P» 

Y3 = G-R-(0/(0+P) 

V4 = H-R+!F-/(0+P) )*»G-H) 

21 = (Xl+X2)/2.0 

22 » <X3+XA)/2.G 

23 = (Y1+Y2)/2.0 

24 = 5Y3-rY4)/2.0 

25 =DABS(22-21) 

26 =DABS(24-23) 

IF (25 .GT. 30.0) GO TO 60 
IF (26 .GT. 30.0) GO TO 60 
T1 = (X1+X2+X3+X4)/h.O 
T2 = ( Y1+Y2+Y3+Y4 ) /4.0 
WRITE (6.4v.) Xl.Yl 
WRITE (6. AO) X2. Yi 
WRITE (6.40) X3.Y3 
WRITE (6.40) X4.Y4 
WRITE (6.50) 

> WRITE (6.40) 25.26 

4. WRITE (6.50) 

' WRITE (6.40) T1.T2 

IF (I .£0. NCONPT) GO TO 43 

WRITE (6.45) 

43 WRITE (6.50) 

GO TO 

5o WRITE (6.80) 

WRITE (6.50) 

WRITE (6.40) Xl.Yl 
WRITE (6.40) ;;2.Y2 
WRITE (6.40) X3.Y3 
WRITE (6.4C) X4.Y4 
WRITE (6.50) 

WRITE (6.90) 25.26 

IF (I .E(J. NCONPT) GO TO 44 

WRITE (6.45) 

44 WRITE (6.50) 

20 CONTINUE 

8 CONTINUE 
STOP 
END 



u u u 


»**•« sample data *»*** 


2 

17002 5 

4111065.3 4123669.9 4111102.5 4123700.8 4173149.8 4173121.4 4188312.8 4188284.5 

4.003 2.308 .160 7.432 

4111065.3 4123669.9 4111102.5 4123700.8 4173149.8 4173121.4 4188312.8 4188284.5 

5.566 .744 1.892 5.701 

4123638.9 4136249.6 4123669.9 4136274.4 4157958.5 4157935.3 4173121.4 4173098.3 

2.193 4.110 5.703 1.881 

4136249.6 4148860.4 4136274.4 4148878.9 4157935.3 4157917.3 4173098.3 4173080.3 

.780 5.527 7.075 .497 

4136249.6 4148860.4 4136274.4 4148878.9 4157935.3 4157917.3 4173098.3 4173080.3 

3.740 2.569 3.796 3.776 

17003 5 

4136249.6 4148860.4 4136274.4 4148878.9 4157935.3 4157917.3 4173098.3 4173080.3 

5.315 .998 4.287 3.288 

4148860.4 4161471.1 4146878.9 4161483.5 4157917.3 4157904.5 4173080.3 4173067.4 

.270 6.042 4.977 2.599 

4148860.4 4161471.1 4148878.9 4161483.5 4157917.3 4157904.5 4173080.3 4173067.4 

1.598 4.714 7.242 .333 

^ 4148860.4 4161471.1 4148878.9 4161483.5 4157917.3 4157904.5 4173080.3 4173067.4 

I 1.930 4.381 3.705 3.869 

T* 4148860.4 4161471.1 4148878.9 4161483.5 4157917.3 4157904.5 4173080.3 4173067.4 

4^ 4.244 2.067 4.188 3.387 



APPENDIX II 

PLOTTER EDITING PROGRAM LISTING 
General Map Case 


! 

'! 

A-II-1 



OTYPP • doL YNO 

O I Mr NS I Qm XP(<*^0 00) *YD(^0 00)fSTATrp(i6) .roM(j>) 
orAD( S, «500) JGF 

TF( jnF,F0,P9Q *n»* jnp .CO, T7T)Gn TQ 5 


500 FDPMAT( ! 4 ) 

^00 rOPMAKlH •10X,I4,I5) 

1000 FOPMAT (2I5*A7,I4,I21 
100'> FPPMAT(4F6.7,TF) 

1 004 FnPMA'*'< I 2 rr .7 ) 

! 00A« PDPMA-^< A5.2X, T? 1 

1 008 FQPMA'^(ox* II) 

?000 '"nPMAT( IHO* 10X*MAPNQ MAPOL .UCOOF POLYNO PTVPF*/ 

?. IH ♦ OXtIft* I 5.5X,A1,4X, 14,5X, I 2/lH t9Xfl5<*-M ) 

2001 rOPMA'»'<lH •IXt^CONTPHL PO I N TS*' • t 7 ( ?r 7 . 3 , 2 x > ) 

2002 c^nPMAT<!H .lOX.'XMlN YM ! N XMA X YMAX NP=««I4* 

♦ Fx* •A*couNTrn<f *• . I 4 , • A* • , 

f/lH .FX,4Fe,3> 

200"» F0RMAT(1H •2X.Q0C*-*) ) 

2004 FOPMA'»’( IHO* lOX*ntr,ITlZFD POINTS BY CAPDS/LiNFM 

2 00 5 *"nPMA^( 1 HO* ^>X«* PLOTTING • ) 

2006 F0RMAT< iH *I0X*T4,»A». 6(2F7,3,2 x) ) 

2 0 07 «rr^oyAT< IHI* 2 XoA5*2xvA5*2X*45/1H *2X, -• \ 

2008 rOPMAT( IHO* 60( • * •) ) 


CALL PLOTS! O* 0* 20) 

CALL PLO^ (0 *0*- I 0* 0*-3) 
call PLOT(0.0. t*50*-7) 

IM = 3 

S IFPAMc^ = 0 

TF( JOF.FO.POP)GO TO I 


2 FFAD! 5* t 0 06 *FND = oOO ) I TI TL=^ ♦ I SKIP? 

IF( JOF.^Q* 77*»)G0 to 3 

call SYMRO^(0*0*-0*218* 0 . 1 * I T I TLE ♦ 0*0* 5) 

CALL NFWPFN(2) 

^NCnOFC 709* I A POP ) * IM 
-'OO fqpm AT( • AT- • , I 2 ) 

call SYMB0.( 0*950* -0*2IR* 0*1R75* I AODP * 0.0, 5) 
IM = IN «•- I 
7 IFPAMF = 0 
irpprro 

XM = 999*000 
YM = 909*000 
XMX = -999*000 
YMX = -999.00 

WPITF(6* 2007) IT ITLF* IT! TLE , ITI TLF 
PFWINO 25 


READ! 5* 1 OOR *FR9 = 900*FNO = 900) I S^aPT 

TF( ISK IP2.EQ*999) REAn(5*1004) ! XD ( N ) * N=1 * ! 4 ) 

IRN = ISTAP742 

READ! 5* 10 04 M STATFPC I ) * | = 1 , IRN) 

no 12 I = 1 * IRN* 2 

XM = MIN! XM, STATrP! I ) ) 

YM r MIN! YM, STATFP< I ♦! ) > 

12 XMX = MAX(XMX*STATFP( I ) ) 

WRITE! 6* 200 I ) ( STATEP! I ) * I - 1 ,I PN) 




A -II- 2 


r» o on no 


WPITF( ft. 2001 ) 
r 
c 

1 IF( lERR .FO .9QQ|Gn TO g 

RFAD(ft. 1000 .FMD = 0.HRR = Q00)MAONp,MAorjL .LUCOOE.POLVNO.PTTPF 
GO rn 'f 

ft PrAD< 0. 1000 .FND = R.FRP = R00 S MAPNO. MAPQL .LUCODE • POLY NO. PTYPE 

f icrpp =: QpQ 

READ ( ft. 1 0 0? ) XMIN . YMIN. XMA X. YMAX .NP 

XM = MIN( XM.XMIN) 

YM = MTN(YM.YMIN1 
XMX = MAX(XMX.XMAX> 

TF< JOF.FO. oqg) WRI TE( 6. 600) J.NP 
TFPAMF = IFOAMF ¥ 1 


J = 0 

on 1 3 L == 1 .6000. ft 
M = L+ft 
I = L 

RFAn(ft.l0 04.EOR = lA,ENr)=16> ( XD(N).YD(N).N=I.M) 

1 T J - J 4* 6 
GO TO 16 

14 IFPR = I 
16 N = J-6 

Pn 15 I=N.J 

IF( xn< 14-1) )15. .15 

GO th 4 \ 

15 CPNTINUF i‘ ) 


21 

5 


70-^ 


n 


TF( jnP.EQ.PQOVGn TO 1 
TF< JOF .PQ. 4 56 >G0 TO ft 

WR ! ft . 2 00 0 )MAPnp. MAOHL .LUCODF .P OL YNQ . PTYPF 
WPITF(6.2 00 2)NP.J. XM I N . YM I N . XM A X . YM A X 
WPT TF< ft. 200 4 ) 

NC “ 0 

DO 21 N = 1 . J . ft 


M = M4-5 

NC = NC 4- 1 

IF( M ,GT, J ) M= J 

WPl TE( ft. 2 00 ft)NC . ( XD(NN) .YD<NN) .NN = N.M) 
WPITF(6.200ft) 

ITF ( 25) J . ( XD( T ) . YD( I ) . 1 = 1 « J ) 

TF< IFPP.E0.1)GO to ft 
GQ TO 1 


IF( JOE.EQ. POP) GP TO 9P9 
WPITE< ft. 200S) 

IF( J0F,FQ,TT7)G0 to 2 
ENCODE! tot. FPM) IFRAME 
FORMAT! I 3, • POLYGONS* ) 

CALL SYMBOL! 0.0. -.465. 0.125. FPM, 0.0. 12) 

J = 0 
REWIND 25 
CALL NEWPFN!2) 

DO 1 I 1=1. IRN. 2 

CALL SYMBOHSTATFP! I )-XM. S TAT EP ! I ♦ I y -YM . 0.1BT5. 3i 
CAUL NEWPEN! t ) 






0.0. -n 


A-II-3 


to 9EAD<25>K ,IXD< n. YO( I ».I=1 .K ) 

J = J i 
!PEN = 3 
no 80 I * t*K 
tF( XO(I) )?0.20, 

CALL PLOT(Xn< I )-XMf Y0( I >-rM, I PEN » 
20 IPEN = 2 

IF( IFRAME.EO. J >60 TO 99 
GO TO 10 

99 CALL PL0TtABS(XMX-XM<-2.00) .O.Of -3> 
60 TO 2 
C 

900 IF( J0E.E0.T77)G0 TO 999 
CALL FACT09{0,5) 

CALL PL0T<2,5. 0«0. 999) 

999 STOP 
FND 


A-II-4 


APPENDIX III 


PLOTTER EDITING PROGRAM LISTING 


MMS Map Case 




I 

{ 





DIMENSION 0ATA< I A) 

COMi^ON tONOr 
1002 rnoMAT(Al) 

?000 AT< iHOf I lOI •* • ) ) 

»'^AD( S« 1002) inNOF 

IFflONO^ .FO. •DNM CALL PLOTS 

IFC lONOF .rO, 'OFF*) CALL PLO T S ( 0 • 0 • 2 O ) 

Pf-WINO 27 

c lfl=^I 001 00 

CALL TPLT 
PEWINO 25 
t^FWlNO 26 
WPITF(6f 2000) 

CALL ONDPY 
100 CONTINUF 

FNO FIL*' 27 
PEWIND 27 
WPITF 16 * 200 1 ) 

2001 FOPMAT(lHl) 

105 CONTINUF 

PFAO( 2"^ *FND = 200 ) data 
WPIT'^16.2002) data 
GO TO 105 
200 CONTINUF 

2002 FOPMA-^(lH ,1AA6) 

CALL PLOTCO .* 0. ,909) 

FNH 

«TFnp. IS tpl*^*tolt 

SUBPOUT INF TPLT 
common lONOF 
DTMFNSION DATA(14) 


C 

1 000 '^nPMATCSXA:^ •7XA1,2XAF6.3) 
lOOl FOPMAT< 1 3A6 • A2// ) 

100 3 FOPMATI 1 3A6 •A?) 

2000 F0PMA^(1H0«5X»opINTS««15«?X*XMIN,XMAX*YMIN»YMAX =»*AF10*3) 

2001 FORMAT! IMO. ’BAD PO I NT • , I A . 2 ( 3 XA 3 ) t A F ! 0 • 3 ) 

200 2 FORMAT ( IH ,14, 3XA3. 3X4 3*F10#3,"9«3,F13*3»FP.3) 

2003 FOPM AT( 1 HO* »L INE LEFT RIGHT XL YL XP 

*YP«/) 

2004 FORMAT! IH4-, I 1X» ♦• ) 

2005 FORMAT! IH .14A6) 

2006 FORMAT! IHI * 14A6/) 

3001 F0PMAT!T3) 

r 

nPRs5”^, 2957R 
FACT = 1 . 


IF<I0N0F .50. -OFF*) FACT=2. 

HT=, 12S/FACT 

CALL FACTOR < FACT ) 

S NPTS^O 
PFWIND 25 

RFAD( 5 . 1001 .EN 0 =A 00 ) DATA 
WRITF( 27 ) DATA 
WRITE! 6 . 2006 ) DATA 
XMIN=tOOO. 

XMAX=-1000. 

YMIN=1000. 

YMAX=-1 000. 

I CONTINUF 



A-m-z 


PEAO ( 5* 1000* END«200 *ERP=:2 > NUM! ♦ NUM2 ♦ xl * Yl* X2 * Y2 

IF ( NUMl *F0, •000* > GO TO 1 

I^INUMl #F0, • • •AND* NUM2 #=0* • •) GO TO I 

IF ( FLD (6*6. NUMl ) *EQ* • m#*i# •• * ) c,0 TO 1 

NPTS=NPTS>1 
XMIN=MIN( XMTN.Xl • X2 > 

XMAXsMAXi XMAX* XI * X2 ) 

YM1N=MIN<YM1N*YI*V2) 

YMAX=MAX( YMAX. Yl * Y2) 

WPlTFf 251 NUMl ,NUM2*X! * Yl *X2,Y2 
GO TO 1 

2 9EA0(0*1001) OATA 
W9ITP( 6, 2005) data 
GO TO I 

200 CONT INUF 

IF ( NPTS •F0« 0 ) GO TO 400 

PND FILF 25 
no 500 112=1*2 

NL = 0 

IP( I I 2 .EO. 2) GO TO 202 
YSIZ5=YMAX-YMIN 

WP TTE( 6* 2000 ) NPTS* XMIN*XMAX*YMIN*YMAX 
WPITF(6*200T) 

202 CONT INUF 

CALL symbol (0«.-*?5**140*DATA*0**60) 

P*^WIND 25 

201 CONTINUE 

PE AD ( 25 . FNn = 300 ) NUM 1 , NUM2 * XI • Yl * X2 * Y2 
NL=NL+1 

I»^(I12 *E0, 1) WP! TP( 6 * 2002 ) NL • NUMl , NU M2 *X 1 , Y I * X2 * Y2 
IF(M2 ,PQ. 2) ENCODE! 2001 . NLl ) NL 
CALL SYMBOL ( X 1 - XM I N * Yl - YM I N . . 06 . 1 .0* *-l ) 
call symbol (X XM IN * Y2-YM IN *.06 *2*0.. -2) 

AL=SQPT ( ( X2-X 1 )*424-( Y2- Yl )*4i? ) 

IF ( AL *GP. ?*HT ) GO TO 20T 
If^( I 1 2 *FO. 1 ) WPI TF( 6 *2004 ) 

GO Tn 201 
20T XC=( XI 4-X2 )/2. 

YC=( Yl ♦V2 )/ 2. 

CALL ANGLF( X2-X1 * V2«Y1 . THFTA • »2 05 ) 

THn=THFTA4DPP 
rS=COS< THFTA) 

SN=SIN(THFTA) 

XOF=1 ,5*MTACS 
Y0F=1 .S^HTASN 

xnP"| = ,0204SN ^ 

Y0»^1= .020*C S 

IFCI12 *FO* 2) NUMi=NL1 

call SYMBO. ( XC-XOF-XOF I -XMI N* YC-YOF4.VQF I -YM I N , HT , NUMl *THO* 1 ) 
IF(M2 .FQ* 2) GO TO 201 
X0F2=( .020^HT)4SN 
Y0F2=( *020^MT)*CS 

C ALL SYMBO;. < XC-X0F4»X0F2-XMT N. YC-Y0F.Y0F2-YMIN*HT*NUM2 *TM0* V) 
GO TO 201 

205 WPITEI 6* 200!) NPTS* NUM I *NUM2*X1 * Yl • X2 » Y2 
GO TO 201 

:ioo continue 

IF< VSIZEAFACT *LT. 16.) GO TO 305 
CALL PLOT<XMAX-XMlN+2**0.*-3) 

GO TO 500 

305 IF(|12 *EQ* V) CALL PLOT C 0 • * YS I 2^.41 . * -3 ) 
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!F(I12 •FQ* ?) CALL PLOT ( XMA X- XM I 2 • . -YS I ZF - 1 • * -"S ) 

•500 CONT INUF 
GO TO S 
AOO CONTIMUP^ 
dptuPN 
ENO 

"TF^P* IS^BT ANGLF.ANGLF 

SUHPOUTINF ANGLF( X#YfTHFTA*S» 

C 

C SUHPnjTINe TO OETFPMINE AMGLE (0 TO 2#tpi) PPOM X-Y PAIR 

C 

PI=3,t4l 5026 
C 

TF( X ) 10* 20. TO 
C 

C SECOND OR third QUADRANT 

C 

10 IF(YPX.l2.ll 

t 1 THCTA=:P I 4-AT AN( Y/X ) ‘’THIRD QUADRANT 

RETURN 

• 2 TH^'T A=sP I •• 1 RO DEGREES 

RETjjpnj 

ON Y AXIS <PI/2 OR 3’API/2) 


20 IF<Y)2t. 22.23 

21 THETAsI.B^PI *• 270 DEGREES 

RETURN 

22 RETURN 4 *' DEGENERATE CASE 

23 thETA = dI/2. *• PO DEGREES 

RFTgPN 

first op fourth QUADRANT 
■*0 IF( Y >T1 .32. 31 

31 THETA=ATAN< Y/X 1 *• 

IFITHFTA .LT, 0. ) THETAS2. APK-THETA 

return 

32 THETA=0. 

RPTURN 

END 

TFOR. ISF0T RNDRY.BNDRY 
SURROUTINE ONDRY 
DIMENSION DATA! 2) 

1000 E0RMAT(5XA3.7XA 3.2X4F6.3 ) 
loot FORMAT ( 6XA6 .At //I 
2000 FOWMATIIH .A3.4F10.3) 


data HT/,125/ 

DATA XM IN . XMAX. YMTN. YMA X/1 000. .-I 000. .1 000. .-1000./ 

NPTS-0 

REWIND 25 

REWIND 26 

CALL FACTOR! I. ) 

5 CONTINUE 

PFAO(5.i001 .ENn=4001 DATA 
XMN= 1000., 

XMX=-1000. 

YMN=t000. 

v\,^ 
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YMX=-1000. 
t CONTINUE 

PE ADI 5, 1 0 00 .END = S>00) NUMl *NUM2 • XI ,Yl . Y2 
IF(NUM2 .NE • • • ) GO TO I 
IFCNUMl .FQ • • M GO TO 1 
npts=npts^i 

XMIN=MTN(XMIN«XI.X2) 

XMAX=^MAX( XM AXtXt f X2) 

YMTN=M!N(YMIN.Y1,Y2> 

YMAX = MAX< YMAXf Yt * Y2> 

XMN=MIN( XMN*X1* X?) 

XMX = MAX< XMX • XI t X2) 

YMN3MtN( YMN ,Y1 , Y?) 

YMX = MAX( YMX #Yl * Y2) 

WPITF(25) NUMl.Xl,Yl#X2*Y2 
GO TO 1 
200 CONT INUF 

WPITr< 2#^) DATA* XMN , XMX. YMN. YMX 
GO TO S 
AOO CONT INUF 

IFINPTS •PQ.O) PETUPN 
END file 25 
END file 26 
PFWINO 25 
PFWIND 26 
40! CONTINUE 

PEAD( 26 . FNn = 41 0 > DATA . XMN , XMX. YMN .YMX 

CALL 5YM0OL ( ( XMN4-XMX )/2 • -XM I N- 3 • 5*HT . < YMN4-YMX )/2.-YMlN-.54HT.HT. 
* DATA .0.0. 7) 

GO ^0 40! 

4! 0 CONT INUE 

4! I PEAO( 25.ENP=420 ) NUMl .XI .Yl .X? .Y2 
WPIT«^< 6. 2000) NUMl . XI . Y! .X2 .Y2 
CALL SYMBOL ( XI- XMIN . Yl -YMT N ..06.1 . 0 • .-! ) 

CALL SYMBOL < X 2- XMI N . Y2 - YM I N . • 06 . 2 . 0 • . -2 ) 

GO TO 410 " 

4?0 CONTINUE 

CALL PLOT(XMAX-XMlN>4. .0. .-3) 

rptupn 

END 
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C YOU MUST DIMENSION THB NUMBER OF ROWS OF At *.4I « THE NUMBER OF COLUMNS 
C OF AT(4,*) and ATATtA.*)* AND THE NUMBER OF COMPONENTS OF Bt*> AND 
C Ct*> EQUAL TO TWO TIMES THE NUMBER OF CONTROL POINTS USED ON MAP 
DOUBLE PRECISIDN A(t2.A). AT<4*t2)« ATATf4.12). Btl2>. Cfl2). 
1X112)* T(i2). XD(12). Y0(I2). U<4)* ATA(4.4) 

DIMENSION Xl{4), Ll(4), THETA(2). THECOM(2.3>. IXI12)* ITtl2) «= 
INTEGER XX 

10 FORMAT(IS) 

11 F0RMAT(8F9. 1 ) 

12 FORMATt 215, 3FI0.31 

13 FORMATt 12F6. 3) 

213 FORMATt 2X, 12FT. 3) 

14 FORMATt IHl) 

15 FORMATt/////,* FOLLOWING IS A CHECK ON THE MAP ROTATION, ORIGIN 01 
ISPLACEMENT. AND SCALING FACTOR ♦» 

16 FORMATt /////.* THE TWO INDEPENDENT SOLUTIONS FOR THE CALIFORNIA ZO 
INE 7 STATE PLANE COORDINATES OF THE*) 

229 FORMATt* DIGITIZATION ORIGIN tXO,VO) AND THE TABLE TO MAP ROTATION 
1 ANGLE THETA * ) 

17 FORMATt//,! 4X,*X0** 19X,*T0* , 1 4X ,* THETA • ) 

le FORMATt/»2F20,l,3X,F4,0,* DEG *,F4,0,» MlN • ,F4.0, • SEC* ) 

19 F0RMATf2I5.A3,I4,I2) 

219 FORMATt IX. 215. A3. 14, 12) 

20 FORMATt 4F6. 3, 15) 

220 FORMATt* THE SCALING FACTOR S = '.FlO.!) 

221 FORMATt/Zi* MAP NUMBER, NUMBER OF POLYGONS FOR MAP, LAND USE OR PO 
ILYGON CODE, POLYGON TYPE*) 

222 FORMATt//,* FOR THIS POLYGON-MIN X, MIN Y, MAX X, MAX V, NUMBER OF 
1 POINTS IN POLYGON* ) 

223 FORMAT!//, • ALL DIGITIZED COORDINATES AND TRANSFORMED ZONE 7*) 

224 FORMATt* CALIFORNIA STATE PLANE COORDINATES FOR THIS POLYGON*) 

232 FORMATt* FOLLOW IN GROUPS OF TWELVE PAIRS*) 

233 FORMAT!//) 

225 FORMAT!//,* YOUR XO ORIGIN REFERENCE SOLUTIONS DISAGREE BY MORE TH 
IAN *,F10,3, * INCHES FOR MAPSETUP *,IS,* FOR CONTROL POINTS *,813) 

226 FORMAT!//, • YOUR YO ORIGIN REFEuhncE SOLUTIONS DISAGREE BY MORE TH 
IAN *,F10,3, » INCHES FOR MAPSETUP *,15.* FOR CONTROL POINTS *,813) 

227 FORMAT!//,* YOUR THETA ROTATION SOLUTIONS DISAGREE BY MORE THAN * , 
IF10,3<* minutes for MAP SETUP *,IS) 

228 FORMATtAI 10, IS) 

329 FORMATt 419, IS) 

230 FORMATt* FOR THESE CONTROL POINTS, THE MAP POSITION IS OFF BY •) 

231 FORMATt F 15, 3) 

235 FORMATtSIlO) 

236 FORMAT! 819) 

C *««******«*4«44*«4******«44**«*«4«44«4«**«***4i44t*4444i****«**«*4i*4*« 

C * PHASE I • 

C * „ CALCULATE NORTH- SOUTH ROTATION ANGLE, SCALING FACTOR t ♦ 

C * TEST FOR VARIATION IN CONTROL PARAMETERS > THAN TOLERANCE • 

C 4***«*«*4**4»4***4«»*****«******«*«4«4«*«**«4|i*44*44i4«***««**4«««** 

READtS, 10) KSET 

C ■i-’ 

C READ KSET - NUMBER OF MAP SETUPS 

C 

C BEGIN MAJOR LOO® OF PROGRAM - IBIG 

C 

DO 100 IBIG = 1,KSET 

READtS, 12) NPOLY,M,XOTOL, YOTOL, TKETOL 
READ POLYGON TOLERANCE CONTROL CARD 


A -IV- 2 


% 




000 10 
00020 
00030 
00 040 
00 050 
00 060 
00070 
00080 
00 090 
00 iOO 
OOt 10 
00 120 
00 130 
00 140 

00 ISO 
00 160 
00170 

001 80 
00190 
00200 
00210 
00220 
00230 
00240 
00 250 
00260 
00 270 
00280 
00 290 
00 300 
00310 
00 320 
00 330 
00 340 
00350 
00 360 
00 370 
00 380 
00 390 
00400 
00410 
00420 
00430 
00440 
00450 
T0451 
T0452 
T0453 
T0454 
T04S5 
00460 
T0461 
T0462 
T0463 
T0464 
T0465 
00 470 
00 480 . 
T0481 
T0482 
T0483 


n n n n n n n r> n n 


0 


c 

c 

c 

c 

c 

c 

c 


23 


25 


C 

c 

c 

c 

c 

c 


21 

22 


2B 


30 


NPOtY TOTAL NUMBER OF POLYGONS 

M NUMBER OF CONTROL POINTS 

XOTOL X COOROINATE TOLERANCE LEVEL 

YOTOL Y COORDINATE TOLERANCE LEVEL 

THETOL ROTATION ANGLE TOLERANCE LIMIT 


WRITE<6. 12VNP0LY»M^ XOTOLt YOTOL# THETOL 
M3 a M0D<M#4) 

IF<M3.NE#0) GO TO 23 
M3 = 4 ' 

IFC^.LE.4) GO TO 21 
Ml s IM-1I><^4 
DO 25 12 - t#Ml 
I SUB ^ 4»M2-*1I 

READ(5«11) (XI ISUB4I3) »V( TSUB4I3I «I3 = 1 «4) 

READ CALCULATED SPC CONTROL POINTS 

X CONTROL POINT X 

Y CONTROL POINT V 

ISUB = 44MI 
GO TO 22 
ISUB =0 

READIStlll CXI ISUB ♦ 13) ^YI ISUB 4 13) • 13 = l«M3) 
M3 s MODIM# 6) 

IFIM3«NE«0) go to 28 
M3 - 6 

IF(M#LE.6) go to 27 
Ml ~ (M-D/6 
DO 30 12 = t*MI 
ISUB = 641 12-1) 

READI5* 13) I XO( ISUB4I 3) t YDIISUB4I3)* I 3, - 1 #6 ) 
READ DIGITIZED CONTROL POINTS 

XO DIGITIZED CONTROL POINT X 

YD DIGITIZED CONTROL POINT V ' ' 




2T 

29 


l$US » 6*M1 
GO TO 29 
ISUO a 0 

R€A0(S.13) CXO( tSUaT13).VO( tSUSTI3l*I3 a l«M3) 

INITIAL ARRAYS AND INPUT DATA 

FROM CALCULAT60 t DIG1TI260 COORDINATES 


MMt a 2*M 

DO SO I a I 

U a 2*1-1 

A( It. I > a 1. 

A( II. 2> a 0. 

AC 11.3) a XOII) 
A< Ir.A) a YOCI » 




* XI I) 

II, a 1,1*1 

Allt.l>,a O. 

Afll.2) a l« 

Attt.3) a,YOCI) 
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AC 11*4> 


-XOCt ) 


T0484 
T0485 
T0486 
T0487 
T0488 
T0439 
T0490 
00491 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
T0571 
T0572 
T0573 
TO 574 
T0575 
T0576 
00 580 
00 590" 
00600 
00 610 
00620 
00630 
00 640 
00650 
00660 
00670 
00680 
00690 
T0691 
T0692 
T0693 
T0694 
T0695 
T0696 
00 700 
00710 
00 720 
00730 
T0731 
TO 732 
70^733 
TO 734 
00 740 
00750 
00760 
00 770 
.00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
0086^6 
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so B(It) = veil 00870 

DO 34 I = 1«4 00880 

DO 34 J a; l.MMl 00890 

34 AT(I.J) =: AfJ.I) 00900 

CALL PATHULf ATA ♦AT«A«4»MMl *4) 00910 

CALL INVERSE ATA»4) 00920 

CALL PATMULf ATAT*ATA«AT,4.4,MMI ) 00930 

00361=1*4 00940 

U(I» = 0. 00950 

DO 36 J = 1*MM1 00960 

36 U( n = UCt) ♦ ATAT( J> 00970 

60 UK = U(3)*U<3) ♦ U(4)4U(4) 00980 

5 = SORTfUX) 00990 

UX=U( 3)/S 01 GOO 

THETA(I) = APCOSCUX) OlOlO 

UX=U(4 )/5 01 020 

THFTA<2) = ARSINCUXI 01030 

IF( U( 3) •GE.0« I GO TO 263 0t040 

THETA(l) = 3«14tS9265*THETA( 1 ) 01050 

263 continue 01060 

DO 45 I = 1*2 01070 

THETA<I) = ABSi Tf1ETA( I I ) 01080 

ir(U( 31.GE«0«) GO TO 260 01090 

!F( U( 4) •GE*0* ) GO TO 261 01100 

THETA(l) = 3* 141 59265 ♦ THETA<I) 01 110 

GO TO 262 01120 

261 THETA(I) = 3« 14159265 - THETA< I ) 01130 

GO TO 262 01140 

260 If^lU<4)«GE«0.l GO TO 262 01150 

THETAM) = 6*28318530 - THETACI) 01160 

262 CONTINUE 01170 

THETAM) = THETAM )4180«/3« 14159265 01180 

THEC0M(I*1) = AINT(THETAM)) 01190 

DUN = ( THETA( n-THECGM( Ul ) )460* 01200 

THEC0MM*2) = AINTIOUM) 01210 

DUM ^ (DUM-THECONK 1*21 )460« 01220 

45 TMEC0NM*3) = AINT(OUM) 01230 

T1231 

WRITE HEADING "FOLLOWING IS A CHECK ON" T 1 232 

T1233 

WRITEC6» 14) 01240 

WRtTE<6. IS) 01250 

WRTTE(6*161 01260 

WRITE(6.229 ) 01270 

WRITF(6*17> 01280 

DO 47 I = 1*2 01290 

WRITEC6* 18) Uf I ) *U( 2)*THECONM • 1 I *THECOMC t *2) .THECOMl 1*3) 01 300 

T1301 

WRITE RESULTS OF ROTATION FROM CALCULATED AND DIGITIZED POINTS T1302 

T1303 

U(l) ORIGIN XO T1304 

UI2) ORIGIN YO T1305 

THECOMM*!) ROTAION DEGREES T1306 

THEC0MM*2> ROTAION minutes T1307 

THECOMM* 3) ROTAION SECONDS T1308 

T1309 

WRITE(6*220) S 01310 

T131 1 

WRITE SCALING FACTOR - S TI312 

T13I3 

TEST FOR ROTATION ANGLE AND SCALING FACTOR WITHIN TOLERANCE T1314 
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c TI31S 

00 32 I » l»MMl 01320 

C<n = 0. 01330 

00 32 J s 013*0 

32 C(l> = C<H ♦ 01350 

00 33 I * l.MMl 01360 

UX*(C< I)-B< in/S 01370 

C< I » = ABSt UX) 01380 

33 CONTINUE 01390 

K = 0 01400 

L s 0 01410 

00 37 I a ItM 01420 

11 a 241-1 01430 

1P(C< II l.LT.XOTOLl GO TO 40 01440 

K a K41 01450 

KMKl a I 01460 

40 11 a 241 01470 

IFICI II l.LT.YOTOLl GO TO 37 01480 

L a L41 01490 

LHLl a I 01500 

37 CONTINUE 01510 

IF(K.NE.O) GO TO 97 01520 

IFIL.NE.O) GO TO 97 01530 

IF( ABSI ( THETM I )-THETA( 2 ) 1 460. ) .GT.THETOLl GO TO 97 01540 

C T 1 54 1 

C COMPLETION OF TOLERANCE CHECKS T1542 

C T1543 

C ***41****4 444 4444 444 4 44444 4444444 4 44 44 4444444*444444444444444 44 44444 T1544 

C 4 PHASE 11 4 T1S45 

C * SCALE AND ROTATE DIGITIZED POINTS. MIN-MAX 6 BOUNDARIES * T 1 546 

C 4 COOED WITHIN THE FRAMWORK OF THE GEO-REF SYSTEM - PHASE 1 * T1547 

C ******************* 4**4 44444 4444 44*4 4 44 44444 4*4 44* 44*4444444*444*4 4 T1 548 

C T 1 549 

DO 65 I a I , 2 01 550 

65 THETA! I) a THET A ! I ) 43. 1 4 1 59265 / 1 80. 01560 

THETA! 11 a ITHFTA! 1 M-THETA! 2) 1/2. 01570 

A! 1,11 a S4C0SI THETA! I) ) 01580 

A!l.2) a S4SIN! THETA! 1 ) 1 01590 

A!2.1) a -A!1.2) 01600 

A!2.2) a A! 1. 1) 01610 

WRITE! 6.14) 01620 

DO 102 18 a l.NPQLV 01630 

REA0!5. 19) MAPNO.MAPOL.LUCOOE.PCLTNO.PTYPE 01640 

T1641 

READ POLYGON CONTROL CARO T1642 

T1643 

MAPNO MAP NUMBER FOR THE POLYGONS THAT FOLLOW T1644 

MAPOL TOTAL NUMBER OF POLYGONS ON MAP T1645 

LUCOOE LAND USE OF POLYGON CODE T1646 

POLVNO SEQUENCE NUMBER OF POLYGON U TO MAPOL T1647 

PTYPE POLYGON TYPE-KEY TO OONUT POLYGONS T1648 

NORMAL POLYGONS ARE CODED 10 T1649 

T16S0 

READIS.20) XMIN.YMIN.XMAX.YMAX.NP 01651 

C T1652 

C READ MINMUM 6 MAXIMUM COORDINATES T1653 

C T1654 

C XMIN MINIMUM X COORDINATE T1655 

C YMIN MINIMUM Y COORDINATE T1656 

C XMAX MAXIMUM X COORDINATE TI657 

C YMAX MAXIMUM Y COORDINATE T16S8 


■ iGINAL PAGE IS 
POOR QUALITY 
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c 

NP NUMBER OF POINTS IN POLYGON 

T1659 

c 



T1660 


XX = (NP-D/6 


01661 


NPl s 1 4XX 


01670 


I3E = NP-64INP1- 

D 

01680 


NPF = < NP14D/2 


01690 


NPEP = (24NPE)-NPI 

01700 


>»PtTe<6. 1*) 


01 710 


WPf TE(6,22l ) 


01720 


WR 1 TP < 2 19 )MAPNO# M APOL •LUCOOE , POLYNO# PTVPF 

01 730 

c 



T1731 

c 

WRITE POLYGON CONTROL CARO 

Tl 732 

c 



T1733 


V»RITe<7,i9) MAPNO.MAPOL .UUCOt>E,POCYNQ,PTYPE ' 

01 740 


WRITEI6.222 1 


01750 


DO 75 I p 1*4 


01 760 


IF( I •E0«4> GO TO 

79 

01 770 


IFI I m^Q.3) GO TO 

78 

01780 


IF< I •E0.2) GO TO 

77 

01 790 

c 



T1791 

c 

ROTATE AND SCALE 

MINIMUM AND MAXIMUM COOROINATES 

T1792 

c 



T1793 


DUMi = XMIN 


01800 


DUM2 = YMIN 


01810 


GO TO 76 


01820 

77 

DUMI =,XMAX 


01830 


DUM2 = YMIN 


01 340 


GO TO 76 


01850 

78 

DUMI = XMIN 


01 860 


DUM2 = YMAX 


01870 


GO TO 76 


01880 

79 

DUMI = XMAX 


01890 


DUM2 = YMAX 


01 900 

76 

C(I) = Ufl) A(1*1>*0UM1 * AC1.2)*nuM2 

01910 

75 

8<I» = U<2> ♦ A<2.1»*0UMI ♦ AC2«2)*DUM2 

01920 


XMIN = c< n 


01930 


DO 80 I = 2# 4 


01940 


IF( XMIN.LE«C< I ) 1 

GO TO 80 

01 950 


XMIN = C< I ) 


01960 

60 

CONTINUE 


01970 


XMAX p C( 1) 


01980 


DO 82 I - 2*4 


01990 


IF( XMAX«6E.C( I) ) 

GO TO 82 

02000 


XMAX p cm 


02010 

82 

CONTINUE 


02020 


YMIN p BCD 


02030 


DO 84 I p 2*4 


02040 


IFC YMIN.LE.BCI I ) 

GO TO 84 

02050 


YMIN p BC n 


02060 

84 

CONTINUE 


02070 


YMAX p BCD 


02080 


DO 86 I p 2.4 


02090 


IF< YMAX.6E.aC I > > 

GO TO 86 

02100 


YMAX = BC D 


02110 

86 

CONTINUE 


02120 


IXMTN s lNT(XM|N4>tO) 

02130 


lYMIN = INT<V««IN*10» 

02140 


IXMAX s INT(XMAX*tO) 

02150 


IYMAX = tNTCYMAX*10) 

02160 

C 



T2I61 

C 

ROTATION AND SCALING COMPLETED FOR MIN-MAX COORDINATES 

T2162 
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c T2163 

WRITE (6* 22 a > I XMIN» I YM I N • I XMAX . I TMA X* NP 02170 

C T2171 

C WRITE MINIMUM ANO MAXIMUM CQORDllvATES TO PRINTER AND CARD FILE T2I72 

C T2173 

WRITE(7.329> I XMIN, I VMI N, I XMAX , I YMAX . NP 02180 

WRITE(6«223 ) 021^0 

WPITE<6.224) 02200 

WRITE(6» 232) 02210 

C T2211 

C BEGIN SCALING AND ROTATION FOR POLYGON BOUNDARY T2212 

C T2213 

on 5S ISM = l»NPE 02220 

WRITE(6t233) 02230 

C T2231 

C complex routine for compensating to variation in input format T2232 

c T2233 

C NP NUMBER OF COORDINATE PAIRS T2234 

C NPU number of CAROS TO BE READ T223S 

C T3F oaPTIAL COORDINATE PAIRS REMAINING AFTER COMPLETE CARO READ T2236 

C NPE NUMBER OF GROUPS OF COORDINATES T2237 

C NPER l-I^ LAST SET CONTAINS ONL.Y ONE CARO T2230 

C T223R 

IF< ISM.NE.NPE) GO TO 61 02240 

IFINPER.EQ. 1 ) GO TO 63 02250 

PEA0C5*13) C X0( 12), YO< 12) • 12 = l,6) 02260 

IBEG = 7 02270 

TEND = 6 4^ I3F 02200 

GO TO 64 02290 

63 IBEG = 1 02300 

!ENO = I3E 02310 

C T2311 

C READ POLYGON POINT CAROS IN SETS OF WO T2312 

C T2313 

64 PEAO(5,13) (XD<I2), Y0(I2), 12= I0EG*IENO) 02320 

GO TO 67 02330 

61 CONTINUE 02340 

DO 62 IL=I* 2 02350 

LSUB = 64(IL-l) 02360 

62 RFAD(5tl3) ( XD( LSUB + I 2 ) • Y0( LSUQ^I 2 ) • I 2=1 *6) 02 370 

67 CONTINUE 02300 

IF( ISM*EQ*NPE > GO TO 68 02390 

NPP = 12 02400 

GO TO 69 02410 

68 NPP = 64II-NPER) ♦ I 3F 02420 

69 CONTINUE 02430 

C T2431 

C ENO OF POLYGON READ ROUTINE T2432 

Q T2433 

C CALCULATE ROTATION SCALING FACTOR T2434 

C T2435 

DO 70 I = l*NPP 02440 

X(I) = U(l) ♦ AC1^I)»X0<I) ♦ A(l,2)4YD(I> 02450 

70 YCI) = U<2) ♦ A(2,l)*X0(r) ♦ A(2.2)4Y0(I) 02460 

IF( ISM.FQ.NPE) GO TO 81 02470 

DO 140 XL- 1.2 02480 

LSUa = 64(IL-1) 02490 

140 WRITE! 6. 21 3 ) ( XOI LSUB+ 1 2) . YO( LSUB4T 2) .12=1 .6) 02500 

C T250! 

C write COORDINATES TO PRINTER T2502 

C T2503 


A-IV-7 


UUU V U V uuu 



GO TO 72 

81 IP(NP£P.FO. I> GO TO 141 

WPTT£<6.2t3) < XO( t2».T0( 121 , 12=1 «6) 

IB£G = 7 

I£NO = 64136 

GO TO 142 

141 I BEG = 1 

TENO = I3E 

142 WRITE<6f213) ( XO( t 2 ) « TO ( t 2 1 . I 2 = I BEG « lENO ) 

72 IF< tS'*.eO.NPEl GO TO 74 

CONVEP COOPOtNATES TO INTEGER 

00 S6 12 = 1*12 
IXI121 = X( 121*10 

56 1T( 121 =: VI 121*10 

00 143 tL=t«3 

LSUB = 4*IIL-11 

WRITE! 6* 235) I I XI LSUB* I 2 ). I VI L SUB* 1 2 1 .12=1*4) 

WRITE INTEGER COORDINATES TO CARO FILE 

143 WRITEI7,2361 I I XI LSUB* I 2) . I Yl LSUB* I2 ) * 1 2= I * 4) 

GO TO 55 

74 XX = INPP-11/4 
NP2 = l*XX 

14E = NPP - 44IN02-1) 

00 57 12=1*NPP 
IXI 121 = XI 121*10 

57 IVI 12) = VI 121*10 

DO 145 IL = 1.NP2 

LSUB = 44IIL-11 

1FIIL.E0.NP2) 60 TO 147 

WRITFI6.23S1 I IXILSUB*I2)*I V1LSUB*I2) * 12=1*4) 
WRTTEI7*2361 1 1 XI LSUB*I 2 ) • I TI LSUB*I 2) . 12=1*4) 

GO TO 145 

147 WRITEI6.23S) < f XI LSUB* 1 2 1 * I VI LSUB*I 21 • 12=1*146) 
WR1TEI7.236) I I XI LSUB* I 2) . I VI LSUB*I 2 ) * 12 = 1*146) 

145 CONTINUE 
55 CONTINUE 
102 CONTINUE 
GO TO 100 

ERROR CONDITION 

97 IFIK.EQ.O) GO TO 98 

WRITEI6.225) XOTOL.IBIG.IKII I) * 1 = l.K) 

WRITEI6.2301 
00 87 I = l.K 
IWR = 2*K1I 11-1 

87 WRITEI6.2311 Cl IWR) 

98 IFIL. 60.01 SO TQ 99 

WRITEI 6*226) VOTOL* IBI S « ILl 1 1 1 * I = 1 «L) 

WRITEI6.230) 

00 88 I = 1*L 
IWR = 2*L11 1 1 

88 WRITEI6.231 1 C( IWR 1 

99 IFIABSI ITHETAI 1 l-THETAI 2)1*60.). Le.TH6T0Ll GO TO 100 
WRITEI 6.227) THETOL.IBIG 

100 continue 

STOP 


r 


02510 
02 520 
02530 
02540 
02550 
02560 
02 570 
02580 
02590 
02600 
T2601 
T2602 
T2603 
02610 
02620 
02630 
02640 
02650 
02660 
T266I 
T2662 
T2663 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02 770 
027B0 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
T2861 
T2862 
T2863 
02870 
02880 
02 890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 



A -IV -8 





END 

SUBROUTINE RATMULI C«A ,B . I . JtK) 

DOUBLE PRECISION CIA. A). A(I.J). BIJ.KI 
DO 100 TR = l.I 
DO 100 JC = l.K 
Cl IR, JC > = 0. 

DO 100 L = l.J 

C(IR.JC) = CIIR.JCl ♦ A< IR.DABIL.JCI 
100 CONTINUE 
RETURN 
END 

SUBROUTINE INVERSI ATA.N 1 

DOUBLE PRECISION ATAIN.N). AIA.AI 

DIMENSION XTA(A.A) 

30a FORMAT! IX. • NO SLOUTION. A 0 EXISTS ON THE MAIN DIAGONAL FOR*) 
303 FORMAT! • ROM NUMBER ».I3.* COLUMN NUMBER *.I3) 

301 FORMAT! • REMEMBSR-ROMS MAY HAVE BEEN SWITCHED PREVIOUS TO THIS •) 
30A FORMAT!* POINT. NO MORE SWITCHING POSSIBLE*) 
on 3001 = l.N 
DO 306 J J = 1 . N 

XTA! t.JJ)=ATA! I.JJ) 

306 A! I.JJ ) = 0.0 
300 A(I.I)=1.0 
OET = 1.0 
on 3Al IH = l.N 
IG = IH 

IF ! A3S!XTA ! IH, IH) ) .GE. 1 .E- 1 0) GO TO 332 


C SWAP ROWS 
305 IG = IG+1 

IF IIG.LE.N) GO TO 308 
WRITEI6.302 ) 

WRITEI6.303) IH, IH 
WRITFI6. 301 ) 

WR1TE!6, 30A ) 

GO TO 381 

308 IF ! ABSIXTA! IG. IG) ) ,LT. 1 .F-10) GO TO 305 
OET = t-1.0)*0ET 
DO 32AJJ * 1 . N 

C = ATA!IH. JJ) 

O = A! IH. JJ ) 

ATAIIH.JJ) = ATAIIG.JJ) 

A! IH. JJ ) 3 A! IG. JJ ) 

AT*! IG, JJ 1 s C 
32A A! IG. JJ ) s O 
332 DIAG = ATA!1H.IH) 

OET = OET AO TAG 
DO 33AJJ = l.N 

ATAIIH.JJ) = ATA! IH. JJ) /0I AG 
33A AIIH.JJ) = A! IH. JJ)/OIAG 
IFIIH .EO. N) GO TO 336 
II = IHAl 
on 3A0 I » II. N 
OIAG = ATA! I. IHl 
DO 3A0JJ = l.N 

ATA! I.JJ) = ATA! I.JJ) - !0I AGAATA! IH. J Jl 
340 AII.JJ) X AII.JJ) - !OIAGAA!IH. JJ)) 

341 CONTINUE 
336 INI * N-1 

DO 348 I X l.INt 
IH * N+l-I 
It X IH - 1 


) 
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03030 
03040 
03050 
03060 
03070 
03060 
03090 
03100 
031 10 
03120 
03130 
03140 
03150 
03160 
03170 
03160 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
034 70 
03460 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03560 
03590 
03600 
03610 
03620 
03630 
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3Sa OIA6 = ATAfll.IH) 036A0 

IQ 3 N 036S0 

3«6 IF<IQ .EO* 0) GO TO 3A2 03660 

ATA(1I«IGI 3 ATAdltlG) > ( 01 *G*A TA ( IH.IG) ) 03670 

AIII.IGI 3 A(Il.lG) - (OIAGAAl IH.IGU 03680 

IG 3 IG - 1 03690 

GO TO 346 03700 

342 IFtll .EO. n GO TO 348 03710 

11 3 Il-I 03720 

GO TO 352 03730 

348 CONTINUE 03740 

354 DO 380 Is l.N 03750 

OO 380 J 3 |,N 03760 

380 ATAfl.Jl 3 Ad.Jl 03770 

38 t RETURN 03780 

END 03790 
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APPENDIX V 


I 


CHAIN PROGRAM LISTING 


n n n 


C YOU MUST DIMENSION THE NUMBER OE ROWS OF THE NUMBER OF COLUMNS 

C OF AT|4*F1 and ATAT<4«4>« AND THE NUMBER OF COMPONENTS OF Bf4l AND 
C CC4» EQUAL TO TWO TIMES THE NUMBER OF CONTROL POINTS USED ON MAP 
C MAKE SURE THAT LAST BLOCK DIGITIZED IS AN INTERNAL BLOCK 
C AND NOT ON TRACT BOUNDARY 
INTEGER XX 

DIMENSION A(8 •AI.ATlAvB )«ATAT(4«8 I.BO l«C(8 > t X ( 1 2) • Y f 1 2 ) « 
tXDf 12>«YDf 12) • K1I4I*LM4) «U<4 ) • ATAf 4 «4) «THET A ( 2 ) • THECOM < 2 • 3 ) • 

2tX( 12)« lYC 1 2)*I TL.EFTI 1000) «I TPf TE ( 1 000) «I BLOCK! 100) .XH! 100) . 

3YH( 100) 

DIMENSION XLCIOOO)* YLftOOO). XP< 1000) t YPflOOO). KTBLIlOO) 

10 FORMAT! 15> 

11 FORMAT! 8F9* I ) 

12 FORMAT! 21 5« 3F10.3) 

13 FORMAT! 12F6-3) 

213 FORMAT! 2X« 1 2F6«3) 

14 FORMAT! IHl) 

15 FORMAT! ///✓/* • FOLLOWING IS A CHECK ON THE MAP POTATION# ORIGIN 01 
ISPLACEMENT# AND SCALING FACTOR*) 

16 FORMAT!/////#* THE TWO INDEPENDENT SOLUTIONS FOR THE CALIFORNIA ZO 
INE T STATE PLANr COORDINATES OF THE*) 

229 FORMAT!* DIGITISATION ORIGIN !XO#YO) AND THE TABLE TO MAP ROTATION 
\ ANGLE THETA •) 

17 FORMAT!//#! 4X# *X0* • 19X# *Y0* #14X. *TMETA* ) 

18 FORMAT!/. 2F20#i #3X#F4.0# • DEG ••F4.0,* MIN *.F4#0#* SEC*) 

19 FORMAT! 21 5# 13.14# 12) 

219 FORMAT! I X # 2 1 5# I 3# I 4 « I 2) 

20 F0RMAT!4F6.3#15) 

220 FORMAT!* THE SCALING FACTOR S - *.F10.1) 

221 FORMAT!//#* TRACT NUMBER# BLOCK NUMBER-WITH AND WITHOUT DECIMAL. 

1 POLYGON NUMBER# POLYGON TYPE*) 

222 FORMAT!//#* FOR THIS POLYGON-MI N X, MIN Y# MAX X# MAX Y# NUMBER OF 
1 POINTS IN POLYGON*) 

223 FORMAT!//#* ALL DIGITIZED COORDINATES AND TRANSFORMED ZONE 7*) 

224 FORMAT!* CALIFORNIA STATE PLANE COORDINATES FOR THIS POLYGON*) 

232 FORMAT!* FOLLOW IN GROUPS OF TWELVE PAIRS*) 

233 FORMAT!//) 

225 FORMAT!//#* YOUR XO ORIGIN REFERENCE SOLUTIONS DISAGREE BY MORE TH 
IAN *#F10<.3#* INCHES FOR MAPSETUP *#I5#* FOR CONTROL POINTS *#813) 

226 FORMAT!//#* YOUR YO ORIGIN 72FEPENCE SOLUTIONS DISAGREE BY MORE TH 
IAN *#F10#3#* INCHES FOR MAPSETUP ••IS#* FOR CONTROL POINTS *#8I3) 

227 FORMAT!//,* YOUR THETA ROTATION SOLUTIONS DISAGREF BY MORE THAN •# 
IFIO.3#* MINUTES FOR MAP SETUP *#I5) 

228 F0RMAT!4I9# 15) 

230 FORMAT!* FOR THESE CONTROL POINTS# THE MAP POSITION IS OFF BY •) 

231 FORMAT!F 10# 3) 

235 FORMAT! 8 19) 

240 FORMAT! |X#I9#110#1X#4F6#3) 

241 FORMAT! //#• BLOCK *.I9#* DID NOT CHAIN PROPERLY# THE STREET SEGMEN 
ITS FOLLOW • ) 

243 FORMAT!//# • THE NON-POLYGON CUL DE SACS FOLLOW*) 

245 FORMAT! I9#I 10#tX#4F6#3) 

C 4^(4444444444 *444444 4 444444444444 4444444444I44 444 44444 44A44444 44444 4 4 

C 4 PHASE I 4 

C 4 CALCULATE NORTH-SOUTH ROTATION ANGLE# SCALING FACTOR 6 4 

C * TEST FOR VARIATION IN CONTROL PARAMETERS > THAN TOLERANCE * 

C 4444444444444444444444444444444444444444444444444 * 444444444444*4444 

READ! 5# 10) KSET 

READ KSET - NUMBER OF CENSUS TRACTS 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00 100 
00 110 
00120 
00 130 
00140 
00150 
00160 
00170 
00 180 
00 190 
00200 
00210 
00 220 
00 230 
00240 
00 250 
00260 
00270 
00 260 
00290 
00300 
00310 
00 320 
00 330 
00 340 
00 350 
00360 
00 370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
004 70 
00480 
00490 
00500 
00510 
00520 
T052I 
T0522 
TO 523 
T0524 
T0525 
00530 
T0531 
TO 532 
TO 533 
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REGIN MAJOR LOOP OF PROGRAM - IBIG 
DO 100 tSIG = I.KSET 

REAO(5«12) NPOLV*M»XOTOL. VOTOL, THETOL 

READ POLYGON TOLERANCE CONTROL CARO 

NPOLY TOTAL NUMBER OF POLYGONS 

M NUMBER OF CONTROL POINTS 

XOTOL X COORDINATE TOLERANCE LEVEL 

YOTOL Y COORDINATE TOLERANCE LEVEL 

THFTOL ROTATION ANGLE TOLERANCE LIMIT 

COMPLEX ROUTINE TO READ COORDINATES IN STRING FORMAT 

M3 = MODIM.A) 

IF(M3.NE.O) GO TO 23 
M3 - 4 

IF(M.LE«4) GO TO 21 
Ml = IM-ll/4 
DO 25 12 = l.Ml 
I SUB = 44<12-1) 

REAOl5«ll> <Xf ISUBT13).Y{ ISUB*I31,I3 = 1 •4) 


READ CALCULATED SPC CONTROL POINTS 

X CONTROL POINT X 

Y CONTROL POINT Y 

ISUB = 44M1 
GO TO 22 

1 ISUB = 0 

2 REA015.111 (XIISUB ♦ I31.Y1ISUB ♦ I3t* 13 = 1.M31 
M3 = M0DIM.6I 

IF(M3.NE.O) GO TO 28 
M3 = 6 

8 IF(M.LE.6> GO TO 27 
Ml a <M- 11/ 6 
DO 30 12 = 1*M1 
ISUB s 6*1 12-1) 

0 REA0<S«13) ( XOf ISUBTI3)* YD( I SUB4I 3) • I3 - l*6l 

READ DIGITIZED CONTROL POINTS 

XD DIGITIZED CONTROL POINT X 
YD DIGITIZED CONTROL POINT Y 

ISUB = 64M1 
GO TO 29 
7 ISUB » 0 

29 REAO(S«13> ( XO( ISUB4I3) .YDl ISUBTI31 *13 = 1*M3) 

INITIAL ARRAYS AND INPUT DATA 
FROM CALCULATED 6 DIGITIZED COORDINATES 


MMl « 2*M 
DO SO I « 1*M 
I 1 > 2«I»1 
A(tl*l> • 1* 
Atll*2) « O. 
A(tl*3) « XC«I> 


- i L-k- ^ 


BOOB, 




T0534 
T0535 
00540 
00 550 
T0551 
T0552 
T0553 
TO 554 
T0555 
TO 556 
T055T 
T0558 
TO 559 
T0560 
T0561 
00 562 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
T0631 
T0632 
T0633 
T0634 
T0635 
T0636 
00640 
00650 
00660 
00 670 
00680 
00690 
00700 
00710 
00 720 
00 730 
00 740 
00750 
T0751 
TO 752 
T0753 
TO 754 
T0755 
TO 756 
00 760 
00770 
00780 
00 790 
T0791 
TO 792 
TO 793 
T0794 
00800 
00810 
00820 
00830 
00840 
00850 
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A(I1.4> = yo<i) 

B< I 1 > s I ) 

It S I 14-1 
A( It* 1 t = 0. 

A( 11*2) 3 1 * 

A< I i.3> = yo< I » 

At Tt*4) = -XOt I » 

B( I I t = y( I » 

DO 34 I s 1*4 
DO 34 J s l*MMt 
AT(I.J) = AtJ.I) 

CAUL RATMOU < ATA.AT.A.4.MM1 *4» 

CALL INV6RS<ATAc4l 

CALL RATMULt ATAT*ATA«AT.4«4*MMI t 

DO 36 1 = t . 4 

U< I > = 0* 

no 36 J S l.MMt 

Utn = Otn ♦ ATATt I , J»*B( Jt 

S = SORTtUt 3»*U( 3t ♦ U<4)*U(4)) 

THETAtn = ARCOStUt 3)/S) 

THETA(2I * ARSINtUt 4)/St 

IFfUt 3).GE.O.) GO TO 263 

THETA(I) * 3. 141 59265-THETA (It 

CONTINUE 

DO 45 I s 1*2 

TMETA(I) s ABSt THETAt I ) ) 

IF(U(3).GE.0.> GO TO 260 

IF(U(4I.GE.0.> GO TO 261 

THETAt I > = 3.t4tS926S ♦ THETAt I > 

GO TO 262 

THETAt I I = 3. 14159265 - THETAt 1 > 

GO TO 262 

IFtUt4>.GE*0.t GO TO 262 
▼HETAtll = 6.28318530 - THETAt I) 
CONTINUE 

THETAt I) = THETAt I >4t80./3. 14159265 
THECOMtl.t) = AINTtTHETAtl n 
DUM = t THETAt I )-THECOMt f • 1 ) >460. 
THECONtI*2) = AINTtOUM) 

DUM - tOUM-THECOMt 1*2) 1*60. 
THECOMtl«3) = AINTtOUMI 

WRITE HEADING “‘FOLLOWING IS A CHECK ON' 


WRITE RESULTS OF ROTATION FROM CALCULAI 


Utt) 

Ut2) 

THECOMt I. t ) 
THECOMt I. 2 I 
THECOMt I.3> 


ORIGIN XO 
ORIGIN TO 
ROTA ION DEGREES 
ROTA I ON minutes 
ROTA I ON SECONDS 


WRITEI6. 141 
WRITEt6«151 
WRITE* 6, 161 
WRITE! 6. 2291 
WRITEte.lTV 
DO 47 I = f,2 

WRITEt6. 161 Ut 1 1 *Ut 21. THECOMt I • 1I.THE4 
WRTTEt6.2201 S 


A-V 


I .21. THECOMt 1.3) 


u u u 


c 

C W«ITE SCALING FACTOR - S 

C 

C TEST FOR ROTATION ANGLE AND SCALING FACTOR WITHIN TOLERANCE 
C 

DO 32 I = 1 »MMt 
CM ) = Om 
DO 32 J 1.4 

32 CCI) ^ CM) 4 ACI^JIWUCJ) 

DO 33 I s ItNMt 

33 CCI) = A8SC (CC f )-BC I ))/S> 

K = 0 

L = 0 

DO 37 I = I «N 
11 = 2*1-1 

IFCCC m.LT.XOTOL) GO TO 40 
K - K41 
KICK 1 = I 
40 II = 2*1 

IFCCMl )•LT•YOTOL) GO TO 37 
L = L41 
LML) = I 
37 CONTINUE 

lFfK«NE.O> GO TO 97 
IFCL.NE.O) GO TO 97 

IFCABSCCTHETAC 1 )-THETA(2))*60.).GT*TMETOL) GO TO 97 
COMPLETION TOLERANCE CHECKS 

DO 65 I 3: 1 « 2 

65 THETACIl = THETAM ) *3. 1 41 59265 /I 80« 

THETAM ) = (THETAC l)4TMETAC 2))/2. 

ACltl) = S*COS< THETAM ) ) 

ACU2) = S*SINC THETAC 1 I ) 

AC2#1) =: -A( U2) 

AC2.21 := A( It 1) 

WRITP<6* 14) 

C 

c *************** *************************************************** 

C * PHASE II * 

C * REVERSE AND DUPLICATE SEGMENTS WHICH SERVE AS A BOUNDARY * 

C * TO TWO SLOCKS AND CHECK FOR SAME BEGINNING AND ENDING COORD * 

C **************************************************************4i*»4t* 

C 

00 102 13 S l.NPOLY 

102 READ (5t 245) I TLEFTC IB ) » I TRl TEC I B) •XLC IB ) « YL C 1 B ) » XRC 1 8) «YR C I B) 

NPl =s 2*NP0LY - 1 
DO 370 I = l.NPOLY 
1TLEFTCNF0LY4I ) « ITRITECI) 

ITRITEINPOLY4I ) = XTL6FTCI) 

XLCNPOLV 4 I ) s XRC 1 I 
YLCNPQLY41) 3s YRCI) 

XRCNP0LY4I) * XLCI) 

370 YPCNP0LV4I) * YLC I ) 

C WE WANT TO GET RID OF ALL TRACT BOUNDARY SEGMENTS WITH OTHER THAN 
C PRESENT TRACT ON LEFT# 

C WE ASSUME that LAST SEGMENT DIGITIZED CNPOLY) HAS OUR DESIRED TRACT 
C ON LEFT. IT IS AN INTERNAL BLOCK. 

NURTRK » ITLEFTCNPOLYI/IOOOO 
1*0 

372 I » 141 



T1341 
T1342 
T1343 
T1344 
T1 345 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
T155I 
T1 552 
T1553 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
TI631 
T1632 
T1633 
T1634 
T1635 
T1636 
T1637 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
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363 lACMTR = ITLCFTC !) / I 0000 
1^CI«GT.NP1) GO TO 375 
TFiMURTRK •EQ. I ACHTP I GO TO 372 
on 373 n = !*NP1 
ITLEFTfni ITLEFT< I 14-1 ) 

ITRITFCTII = IT9ITE(I1>1) 

XUf I 1 ) = Xt C Il^l I 
VLCll) = yfZMl^l) 

XPC III = kR( 114-t > // 

373 YRf III := YPC I14.1I / 

NPI = NPl-l 

GO TO 363 

375 IP<NURTRK I ACHTP I GO TO 377 

NPI s NPI • I ^ 

377 CONTINUE 

CALL SOR T6f I TL EF T « I TR I TE ♦ XL • YL . XR • V R • NPI I 
NPI = NPI>1 
t = I 
IBLKS ss O 

374 IBLKS = IBLKS 4 1 
IBLOCKC IBLKSI * ITLEFTIII 
KT8LC IBLKS! « 0 

376 KTBLC IBLKS) = KT9LC IBLKS) ♦ 1 
I = I 41 

IFfl #GT# NPI) GO TO 378 

IFU iBLOCKf IBLKS)) .NE. IITLEFTCI)) ) GO TO 374 
GO TO 376 

378 CONTINUE 

C IBLKS IS THE NUMBER OF BLOCKS IN THIS TRACT 
C NOW WE»LL CHAIN THE BLOCK TOGETHER IN SEQUENTIAL ORDER 
IREGF 30 
lENOF = O V 
00 380 I to = It IBLKS 
NSEG = KTBLC I 10) 

NUMBLK = IBLOCKCIIO) 

IBEGF a lENOF 4 | 
lENDF = lENDF 4 NSEG 
NCULS * 0 
IMARK 3 lENOF 
DO 382 I t a IBEGFt lENDF 
IFC IMARK #LT* It) GO TO 386 
IFCNUMBLK •NE* ITRITECIII) GO TO 382 
385 IFCNUMBLK •E0« I TRI TEC I MARK ) ) GO TO 384 
C SWITCH CUL OE SAC TO END OF BLOCK SEGMENTS 
IOUM2 a ITRITEC It) 

DUM3 a XLCI 1) 

DUM4 a yL C ID 
OUM5 a XR C I 1 ) 

0UM6 a VRC I 1) 

ITRITEC ID a ITRITEC IMARK) 

XLCIl) a XLC IMARK) 

YLCll) a YLC IMARK) 

XRCIll a XRC IMARK) 

YPC ID a YRC IMARK) 

ITRITEC IMARK) a I0UM2 
XLC IMARK) a 0UM3 
YLC IMARK) a OUM4 
XRC IMARK) a OUM5 
YPC IMARK) a OUM6 
C FINISHED SWITCHING 
GO TO 382 



01810 
i 01820 

\ 01830 

ji0l840 
//0I850 
/ 01860 
01870 
01880 
01 890 
01900 
01910 

01 920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 

02 080 
02090 
02100 
02110 
02 1 20 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
022^0 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02 320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
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384 NCULS » NCOLS ♦ 1 02430 

{MARK * IMARK - 1 02430 

IF<IMARK «LT, 111 GO TO 386 02440 

GO TO 385 02450 

382 CONTINUE 02460 

386 CONT INUe 02470 

C CUL DE SACS ARE NOR AT ENO OF BLOCK SEGMENTS 02480 

NSEGl * NSEG - NCULS 02490 

C NOR RE’LL MATCH ENOS OF SEGMENTS TO BEGINNINGS OF OTHER SEGMENTS 02500 

C NSEGt IS THE NUMBER OF BLOCK SEGMENTS EXCLUDING CUL OE SACS 02510 

II = IBEGF 02520 

lENOl = lENOF - NCULS 02530 

IS = IBEGF 02540 

390 IS a IS ♦ I 02550 

393 IFI IS .GT. lENOll GO TO 392 02560 

IF<ABS<XR( I I) - XLIISII «GT. XOTOLI GO TO 390 02570 

IFI ABS< YR<I 1 1 - VLIISI) .GT« YOTOL) GO TO 390 02580 

C IS MARKS THE NEXT SEGMENT LINK OF THIS BLOCK 02590 

C SRITCH THIS SEGMENT BACK TO THE ONE FOLLORING II 02600 

II = II ♦I 02610 

IOUM2 = ITRITEIll) 02620 

OUM3 = XLIIII 02630 

0UM4 = YLIIl) 02640 

BUMS = XRIIII 02650 

0UM6 = YR(Il) 02660 

ITOITEIID = ITRITEIISI 02670 

XLIII) = XUIISI 02680 

YLIIl) = YLIIS) 02690 

XRtll) = XR^ISI 02700 

YRIII) = YR(IS) 02710 

ITRITEIISI = I0UM2 02720 

XLIIS) = 0UM3 02730 

YLIIS) = DUMA 02740 

XRIIS) = OUM5 02750 

YRIIS) = 0UM6 02760 

IS = I I ♦ I 02770 

GO TO 393 02780 

392 IFI II .EO. lENOII GO TO 394 02790 

C BLOCK OIO NOT CHAIN IF YOU REACHED MERE 02800 

395 WRITEI6.24II NUMBLK 02810 

DO 396 12 a IBEGF, lENDF 02820 

396 RRlTEI6,240llTLeFT<I2l,ITRITEII2l, XHI2I, YLII2I, XR1I2I, YR<I2I 02830 

GO TO 380 02840 

394 IFIABSIXRIIENOI l-XLI IBEGFII .GT. XOTOLI GO TO 395 02850 

IFIABSI YRI lENOI l-YLC IBEGF) I .GT. YOTOL) GO TO 395 02860 

C IF YOU REACHED HERE. BLOCK CHAINED OK 02870 

C NOR RE’LL AVERAGE THE DOUBLY DIGITIZED NODES 02880 

C SINCE ▼HE DIGITIZATION AGREES RITHlN TOLERANCE LIMITS 02890 

C T289I 

C «*«*4i«*****»**R**«****R****4**444444**4**4*****44*4**4**444*444**«4 T2892 

c 4 PHASE 111 * T2893 

C 4 SCALE AND ROTATE DIGITIZED POINTS, MIN-MAX 6 BOUNOARIES 4 T2894 

C 4 COOED RITHlN THE FRAMRORK OF THE GEO-REF SYSTEM - PHASE 1 4 72895 

C •***««**4i444 4444 444444444444444444444444444444444444444444444444444 72896 

C T2897 

MAPNO = NUMBLK/ lOOOO 02900 

MAPOL » NUMBLK - I MAPN041 0000) 02910 

LUCOOE * MAPOL/ 10 02920 

NPOLYO « 110 02930 

NPTYP a 10 02940 

XHIl) a IXLI IBEGF)4XRIIEN01))/2. 02950 




YH<I> = < YL< 18E6F»4-VR« I6NOI » I/a. 

02960 


NP NSFG14 1 


02970 


XH( NP) = XH( 1 1 


02980 


YH(N0 ) = YH( 1 > 


02990 


DO 300 I 1 = 2«NSHG1 


03000 


TMAPKl = I0SGF4-II-2 


03010 


IMAPK2 = ISeGF^Il-l 


03020 


XHMt) = <XP< TMAPKl )4-XL( IMAPK2) )/2. 

03030 

300 

YH< I n = ( YPC XMAPKl M-YLT IMARK2) 1/2* 

03040 

316 

CONT TNUE 


03050 


XMXN = XH( 1 ) 


03060 


YMIN = YH< 1 1 


03070 


XMAX = XMX 1 1 


03080 


YMAX - YMC 1 ) 


03090 


DO 302 11= 2.NP 


03100 


IFC XMIN mLEm XH< II ) ) 

GO TO 302 

03110 


XM XN = XM< I 1 1 


03120 

302 

CONT INUE 


03130 


00 304 II = 2,NP 


03140 


XF( YMIN .LE* YH< I 1 ) > 

GO TO 304 

03150 


YMIN = YH< I 1 ) 


03160 

304 

CONTINUE 


03170 


DO 306 11 = 2tNP 


03180 


IF( XMAX *GE • XH( ID) 

GO TO 306 

03190 


XMAX = XH< I 1 1 


03200 

306 

continue 


03210 


no 308 II = 2*NP 


03220 


XP< YMAX .GE • YM< It)) 

GO TO 308 

03230 

308 

CONTINUE 


03240 


YMAX = YH< I 1) 


03250 


XX = <NP-l)/6 


03260 


NPl = 1 +XX 


03270 


X3E = NP-6ACNPI-I) 


03280 


NPE = (NPl^l)/2 


03290 


NPER = <24NPE)-NPI 


03300 


WPITE<6*14) 


03310 


WPITE(6.22l ) 


03320 


WRITE(6.at9 IMAPNO.MAPOL.LUCODE »NPO(lYO.NPTVP 

03330 


WR ITEt 7, 19) MAPNO, MAPOL .LUCOOE .NPOLYO.NPTYP 

03340 


WPITE(6«222) 


033SO 


OO 75 I = 1 .4 


03 360 


IF< X «E0«4) GO TO 79 


03370 


XF<I«FQo3) GO TO 78 


03380 


IF<X«EQ«2) GO TO 77 


03390 


OUMl = XMIN 


03400 


OUM2 = YMIN 


03410 


GO TO 76 


03420 

77 

OUMl = XMAX 


03430 


OUM2 = YMIN 


03440 


GO TO 76 


03450 

78 

OUMl = XMIN 


03460 


OUM2 = YMAX 


03470 


GO TO 76 


03480 

79 

OUMl = XMAX 


03490 


OUM2 = YMAX 


03500 

76 

CIt) = U(ll ♦ Ad.llAOUMl ♦ A(l.a>*0UM2 

03510 

75 

S(I) = U<2> A<2.1)*DUMi *■ A(2»2)*0UM2 

03520 


XMIN = C< 1) 


03530 


OO 80 I = 2,4 


03540 


IF( XMIN.LE.Cl I I I GO 

TO 80 

03550 


XMIN s C< 1 1 


03560 
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80 

CONTINUE 

03570 


XMAX £ C< 11 

03580 


DO 82 I s 2*4 

03590 


IF( XMAX*GE«CC I M GO TO 82 

03600 


XMAX = CC I > 

03610 

62 

CONTINUE 

03620 


YMIN = BID 

03630 


DO 84 1 = 2*4 

03640 


IF( YMIN.LE.BI I M GO TO 84 

03650 


YMIN =011) 

03660 

84 

CONTINUE 

03670 


VMAX - Bf 1) 

03680 


DO 86 I a 2.4 

03690 


IF(YMAX.GE.0( I ) ) 60 TO S6 

03700 


VMAX a B( n 

03710 

86 

CONTINUE 

03720 


IXMIN a INTI XM IN *10) 

03730 


I YMIN a 1 NT (YMIN* 101 

03740 


TXMAX a INT<XMAX*10) 

03750 


I YM A X a INTI YMA X* 1 0 ) 

03760 


WRITE! 6. 228) I XM IN • t YM I N. I XMAX • I YMA X . NP 

0 3770 


WRITEI7.228 ) I XMIN . I YMI N. I XMAX . I YMA X . NP 

03780 


WRITEI6.223 ) 

03 790 


WRITEI6.224) 

03800 


WPITEI6.232) 

03810 


DO 55 ISM a I.NPE 

03820 


WRITE(6»233 > 

03830 


IF! TSM.NE.NPE ) GO TO 61 

03 840 


IFl a INPE-1)*2*6 

03850 


TFINPER.EQ. 1 ) GO TO 63 

03860 


on 310 12 a 1.6 

03870 


XOI 12) a XMI IF 14*12) 

03880 

310 

YOI 12) a yHI if 14*12) 

03890 


IBFG a 7 

03900 


I END a 6 ♦ I3E 

03910 


GO TO 64 

03920 

63 

IBE6 a 1 

03930 


TEND a I3E 

03940 

64 

00 312 12 a IBEG.IENO 

03950 


XOI 12) a XHI IF14-I2) 

03960 

312 

Y0II2) a YHI IF14*I2) 

0 3970 


60 TO 67 

03980 

61 

CONTINUE 

03990 


00 314 12 a 1.12 

04000 


IF! a I ISM- 1 )*2*6 

04010 


XOI 12) a XHIIF14*I2) 

04 020 

314 

YOI 121 a YHI IF14-I2) 

04030 

67 

CONTINUE 

04040 


IFI ISM.EQ.NPEI GO TO 68 

04050 


NPP a 12 

04 060 


GO TO 69 

04070 

68 

NPP a 6411-NPER) 4* I3E 

04080 

69 

CONTINUE 

04090 


DO 70 I a l.NPP 

04100 


Xin a ultl 4- AC1.1)*XDIII 4 AI1«2)*YDII) 

04110 

70 

YII) a UI2) ♦ AI2«l>*XOIT) 4- AI2.2)*YDIII 

04120 


IFI ISM.EQ«NPE) GO TO 81 

04130 


DO 140 ILai.2 

04140 


LSU8 a 6*ItL-l> 

04150 

140 

WRITEC6.213 1 I X0CLSUB4*t2) •VOILSUB4I2I .12=1.61 

04160 


GO TO 72 

04170 
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IF(NPER.EO.l) GO TO 141 04180 

WRtT?f6.ai3) ( XD( 12 )• V0( 12) . 12 = 1 «6) 04 190 

1BEG = 7 04200 

lENO = 64I3E 04210 

GO TO 142 04220 

141 I9EG = I 04230 

lENO = I3E 04240 

S42 WRITE(6«213) ( XO ( t 2 ) . YD ( I 2 ) • 1 2= t BEG . lENO ) 04250 

72 |F1 ISM.EO.NPE) GO TO 74 04260 

09 56 12 = 1.12 04270 

IX1I21 = X( 121*10 04280 

56 IY1121 = Y< 121*10 04290 

DO 143 IL=I.3 04300 

LSUB = 4*fIL-l) 04310 

WPITE16.2351 < IX(LSUB*I21.IV<LSUB4l21.t2=1.4l 04320 

143 WRITEC7.2351 < I X( LSUB* t 2) . I V( LSUB4I 2) . I 2=1 .4 1 04330 

GO "^O 55 04340 

74 XX = lNPP-1 1/4 04350 

NP2 = 1*XX 04360 

I4E = NPP - 4*(NP2-1I 04370 

DO 57 12=1, NPP 04380 

1X(I2> = X( 121*10 04390 

57 1VI12) = Y(f2)*10 04400 

DO 145 IL = 1.NP2 04410 

LSOB = 441IL-1) 04420 

IF< lU .EO.NP2) GO TO 147 04430 

WRITE(6.235> 1 I X< LSU8*1 2 ) . I Y( LSUB + I 21 . 12=1.41 04440 

WRITE! 7.235 ) < I X( L SUB* X 2) . I Y< LSUB*I 2) . 12=1.4) 04450 

GO TO 145 04460 

147 WR1TEI6.235) I I X( LSUB* I 2) . I VI LSUB + I 2 1 . 12=1. I4E) 04470 

WRITEI7.235) I I X( L SUB*I 2 ) . I Y< LSUB*I 2 ) . 12=1. 14E) 04480 

145 CONTINUE 04490 

55 CONTINUE 04500 

IFINCULS .EQ. 0 ) 60 TO 380 04510 

NPTYP = 99 04520 

WRlTEi6.243) 04530 

NP = NCOLS42 04540 

NPNI = NP-1 04550 

NCULS = 0 04560 

DO 320 II = 1.NPM1.2 04570 

IMARK = <Il-*2)/2 04580 

XHIIl) = XLIIENOl * IMARK) 04590 

YHIIl) = YLIIENOl * IMARK) 04600 

XHII1*1) = XRIlENDl * IMAFK) 04610 

320 YHI11*1) = YR<I=N91 * IMARK) 04620 

GO TO 316 04630 

380 CONTINUE 04640 

GO TO 100 04650 

97 IF(K.EO.O) GO TO 98 04660 

WRITEf6«225) XOTOL . IBIG . I K I ( I ) . I = I .K) 04670 

WRITEI6.230) 04680 

DO 87 1 = 1 .K 04690 

IWR = 2*K1<I)-1 04700 

87 WR1TBI6.23I ) CIIWR) 04710 

98 IFIL.EQ.O) GO TO 99 04720 

WRITE(6.226) YOTOL. I BIG* ILl < I ) . I = I .L) 04730 

«RITEt6.230> 04740 

DO 88 I = 1 .L 04750 

IWR = 2*L1(I) 04 760 

88 WRITE I 6. 231) CIIWR) 04770 

99 IFIABS<<THETA< 1 )-THETA< 2) )*60. ) .LEoTHETOL) 60 TO 100 04780 
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H 




I 





WRITe( 6 * 22 rt THETOL.tBlG 




04790 

too 

CONTIMUE 




04 BOO 


STOP 




04810 


FNO 




04820 


SUBROUTINE S0RT6< I TL • I TR » XL • YL • XR 

• VR, 

N) 


04 830 


OIM^NSinN XLC1000)t YLOOOO)* XR(IOOO>« YR< 1 000 ) . I TL( 1000 1 


04 840 


I ITRf 1000) 




04 850 


DO 20 I = I *N 




04 860 


irfITLfI) #LE. TTLM^tn GO TO 20 




04 870 


K = t 4 2 




04 880 

10 

K ^ K-l 




04 890 


IF(K .LT# 21 GO TO 20 




04900 


TFCITLCK-1) .LE* ITL(K)) GO TO 20 




04910 


TDUMl ITLCK) 




04920 


I0UM2 5= ITRfK) 




04930 


DUM3 = XL(K) 




04 940 


0UM4 = YL(K) 




04950 


OUM5 = XRCK) 




04 960 


DUM6 = YR<K) 




04 970 


ITLCK) = ITLIK-I I 




04980 


ITRCK) = ITRCK-t) 




04990 


XL(K) = XL<K-1) 




05000 


YL<K) = YL(K-I) 




05010 


XR(K) « XR(K-l ) 




05020 


YR(K ) = YRCK-I ) 




05030 


ITL<K-l) - lOUMt 




05040 


TTR<K-n = IOUM 2 




05050 


XL(K-1 ) = 0UM3 




05 060 


YLfK-1) 0UN4 




05070 


XR(K-l ) = OUM5 




05080 


YR<K-ll = 0UM6 




05090 


GO TO 10 




05100 

20 

continue 




05110 


RETURN 




05120 


END 




05130 


subroutine RATMULI CtA*0 • I * J,K) 




05140 


DIMENSION CfI«K)« A(1,J)« B(J,K) 




05 150 


DO 100 IR = 1 • I 




05160 


DO too JC = 1«K 




05170 


CC IR. JC) = 0* 




05180 


oo too L = i.J 




05190 


C(IR.JC) = CIIR.JC) T A<IR.L)*8IL, 

.JC) 



05200 

too 

CONTINUE 




05210 


RETURN 




05220 


END 




05230 


SUBROUT INE INVER SI A T A « N I 




05240 


DIMENSION ATAIN.N). AI4«4) 




05250 

302 

FORMATIIX# • NO SLOUTION, A 0 EXISTS 

ON THE MAIN OIAGONAL 

FOR* ) 

05260 

30 3 

FORMAT!* ROW NUMBER •»I3** COLUMN 

NUMBER **I3) 


05270 

301 

FORMAT! • REMEMBER-ROWS MAY HAVE BEEN 

SWITCHED PREVIOUS TO 

THIS •) 

05 280 

304 

FORMAT!* POINT* NO MORE SWITCHING 

POSSIBLE* ) 


05290 


OO 3001 « 1«N 




05300 


00 306 JJ 3 1«N 




05310 

306 

A!I»JJ) s 0*0 




05320 

300 

A! t«I ) 3 1*0 




05330 


OET * 1*0 




05340 


DO 341 IK = t.N 




05350 


IG = IH 




05360 


IF !ABS!ATA! tH«IHl)*GE.l«E-tO) GO 

TO 

332 


05370 

; SWAP POWS 




05380 

30S 

IG « lG4t 




05390 
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} 


IF (I6.LE.N) GO TO 308 05400 

HRITE(6.3021 05410 

HRITEf6*303) IH, IH 05420 

WRITE(6«301) 05430 

WRITE* 6. 304) 05440 

GO TO 38» 05450 

308 IF <A'BS<4TA< IG, IG)).LT. l.E-IO) GO TO 305 05460 

DET * <-1.0)40ET 05470 

OO 324JJ a I«N 05480 

C = ATAdH. JJ) 05490 

0 = A* IH* JJ ) OSSOO 

ATA(IH*JJ) a ATA<IG*JJ> 05510 

A(IH«JJ) = A(IG«JJ) 05520 

ATA* IG* JJ ) a C 05530 

324 A(IG.JJ) a O 05540 

332 DIA6 a ATA*IH*IH) 05550 

OET a OET401AG 05560 

00 334JJ a i,N 05570 

ATA<IH*JJ) a ATA* IH* JJ)/OIAG 05580 

334 A*1H*JJ) a A* I H . J J ) /0I AG 05590 

IF*IH .EO. N) GO TO 336 05600 

II a IH-M 05610 

DO 3401 a II, N 05620 

OIAG a ATA*I*IH) 05630 

00 340JJ a l,N 05640 

ATA*I*JJ) a ATA*I*JJ) - *OIAG*ATA* IH* JJ) ) 05650 

340 A*I*JJ) a A(I*JJ) - *OIAG*A* IH, JJ) ) 05660 

341 CONTINUE 05670 

336 INI a N-1 05680 

00 348 I a 1*IN1 05690 

IH a N41-I 05700 

II a IH - 1 05710 

352 OIAG a ATA*II*IH) 05720 

16 s N 05730 

346 IF* 16 .EG. 0) GO TO 342 05740 

ATAIIt.IGt a ATAUt.lG) - * 01 AG4ATA * IH* 1 6 ) I 05750 

A*I1*I6) a A*II*IG) - *01 AG*A ( IH , IG 1 ) 05760 

16 a 16-1 05770 

GO TO 346 05780 

342 IF* I I *EQ. 1> GO TO 348 05790 

II 3 li-i 05800 

60 TO 352 05810 

348 CONTINUE 05820 

354 00 380 I a 1*N 05830 

00 380 J a i*N 05840 

380 ATA*I*J) a A*1*J) 05850 

381 RETURN 05860 

END 05870 
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APPENDIX VI 
DACS PROGRAM LISTING 



I 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*OACS - PHASE I • (PRESORT) 

GL FARNSWORTH ( CENSUS USE STUDY, (301) 753-7094 ) 

CHANGES TO 6/27/72 

OCTOBER, 1970 

THIS ROUTINE SETS UP THE SEGMENT RECORDS WHICH CAN ADEQUATELY 
ALL REGIONS BY BOUNDING. 


implicit integer (A-2) 

INTEGER42 NRECC22) 

REAL XREC<SO),XFILE 

DIMENSION RECDC 1 1 ),SLIST( 2 000) , IR£C(80) ,RECS< t t ) 
DIMENSION T ITLEI 3) 

EQUIVALENCE (IRECf 1),XREC) 

COMMON NCODE, COUNT, RECDtSLIST 

DATA NINES, INF ILE ,OUTF I L/999999999, 8, 9/ 

DATA BLOC , TRAC, REGN, BLANK, SLCT, R JCT , BNPY 
X / 'aLKS* , *TRCS« ••RGNS* • • • , •SELE* , «RE JE • , • BI NA» 

DATA ACRES, SOFT, SQM I 
X / •ACRE*, ‘SOFT* ••SOMI • / 

DATA 8GPS /•BGPS»/ 

NINES 


DACOOOtO 
DAC00020 
DAC00030 
DAC00040 
DAC00050 
DAC00060 
0ESCRDAC00070 
DAC00080 
DAC00090 
DACOOIOO 
DACOOt 10 
DAC00120 


DAC00140 


20 


SL I ST ( 1 ) = 

COUNT=0 

READ( 5, 20 ) FILE# XFILE* CALC, CODE, ELECT, AREA, OPTION, 

FORMAT( A4,A6,A4,4X,A4,4X,A4,15X«A4,9X,I4,6X,3A4 ) 


DACOO ISO 
OACOO 170 
DACOO lao 
OACOO 190 
DAC00200 
DAC002I0 
0AC00220 
OAC00230 
0AC00240 


T ITLE 


IF( CALC .EQ. BLANK ) CALC = TRAC 
IFC AREA ,EQ. BLANK) AREA = SOFT 
WRITE(6, 21 ) FILE, XFILH. TITLE, AREA, OPTION 

21 FORMAT( •! INPUT FILE IN •,A4,A6, •FORMAT*/ 

X • TITLE = •• 3A4/ • AREA IN *,A4/* 0PTI0N=«,I4 // ) 

IF< CALC ,NE. BLOC ) GO TO I 
LCODE = 6 

WRITE(6,1000) 

GO TO 5 

1 IF( CALC ,NE. TRAC ) GO TO 2 

LCODE = 10 

WRITE<6, 1010) 

GO TO 5 

2 IF( CALC ,NE, REGN ) GO TO 3 

LCODE = 8 

WRITEX6, 1020) 

GO TO 5 

3 IF( CALC ,NE* 3GPS ) GO TO 4 

LCODE = 6 

WRITE(6, 1025) 

GO TO 5 

4 WRITE! 6, 1030 ) CALC, CODE, ELECT, AREA. OPTION. TITLE 

RECIN = 0 

RECOUT- 1 
GO TO 000 


1000 FORMAT! 
1010 FORMAT! 
1020 FORMAT! 
1025 FORMAT! 
C 

1030 FORMAT! 
X 
C 


•0 AREAS AND CENTROIDS OF CENSUS BLOCKS REQUESTED*/ 

*0 AREAS AND CENTROIDS OF CENSUS TRACTS REQUESTED*/ 

*0 AREAS AND CENTROIDS OF AREA COOES REQUESTED* / 

•0 AREAS AND CENTROIDS OF BLOCK GROUPS REQUESTED* / 

•1 UNUSABLE CONTROL CARO SPECIFICATION* // 

•CALCULATE *,A4,4X,A4, *CT * ,A4,2X.A4, 13, 3A4 ) 


) 

) 

) 

) 


DAC00270 

OAC00280 


DAC00300 
OAC00310 
OACOO 320 
0AC00330 
DAC00340 
DAC00350 
OACOO 360 
OAC00370 
DACOO 380 
DAC00390 
DAC00400 
DAC004I0 
DAC00420 
OAC00430 
DAC00440 
DAC00450 
OAC 00460 
DAC00470 
0AC00480 
DAC00490 
0AC00500 
DAC00510 
OAC00520 
DAC00S30 
DAC00540 
0AC00550 
OAC00560 
OAC00570 
DAC00580 
OAC 00590 
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5 Rcooe - Lcooe ♦ i 

XFf CODE mEOm BLANK! GO TO 9 
SELECT = 3 

IFC CODE .EQ* SLCT ) SELECT = 1 00 
IF( CODE •EG. »JCT ) SELECT = 0 


C 

C 

c 

c 

c 


THE VARIABLE *TRACT* MAY ACTUALLY BE BLOCK, 0G • OR REGION 

22 FORMAT! 19 > 

IFC TRACT #GE. NINES I GO TO 80 

IF (ELECT. EQ.BLOCI TRACT = TRACTAIOOO ♦ BLOCK 
IFICOUNT) 30, 30, 40 
30 SL ISTC I )=sTR ACT 
COUNTS I 
GO TO 10 

40 DO 50 1=1. COUNT 

IFCSLISTCI) - TRACT) 50. 10. 60 

50 CONTINUE 

COUNT=COUNT ¥ I 
SL ISTC COUNT )=TRACT 
GO TO 10 

60 COUNTcCOUNT ♦ 1 
J=COUNT 
70 K=J - I 

SLISTC J)=SL ISTCK! 

- 1 

IFCJ .GT. I I GO TO 70 
SLISTC I )»TRACT 
GO TO to 

80 IFC COUNT .EO. 0 ) MRITEC 6.10401 

IFC COUNT .GT. 0 ) WRITE! 6.1050) COUNT. ELECT. CODE 
X .! SLt STCN) .N=1 .COUNT) 


1040 FORMAT! 
1050 FORMAT! 

X ! 

500 RCC1N=0 
RECQUTsO 


•O ALL AREAS TO BE PROCESSED* ) 

•0 LIST OF*. 16. 2X. A4, * TO BE *. A4. •CTEO.» 

/ 121*0 ) ) 


// 




OAC00600 

DAC00610 

DAC00620 

OAC00630 

0AC00640 



IF! 

SELECT .EG. 

3 ) 

GO 

TO 4 



0AC00650 

a 

ECOOE = 1 

00 






DAC00660 


IF! 

ELECT 

• EG. 

BLOC 

) 

ECODE 

= 7 


DAC00670 


IF! 

ELECT 

• EG. 

BGPS 

) 

ECOOE 

= 7 


OAC00680 


IF! 

ELECT 

• EG. 

TRAC 

) 

ECOOE 

= 11 


DACO0690 


IF! 

ELECT 

• EG. 

REGN 

) 

ECODE 

= 9 


0AC00700 


IF! 

ECODE 

.GT. 

11 

) 

GO TO 

4 


DAC00730 

c 









DAC00720 

9 

AMULT = 0 







OAC00 740 


IF! 

AREA 

• EG. 

ACRES) 

AMULT 

= 640 


DAC00750 


IF! 

AREA 

• EG. 

SOFT 

) 

AMULT 

= 5280 

♦ 5280 

DAC00760 


IF! 

AREA 

.EG. 

SOM I 

) 

AMULT 

= 1 


OAC00770 


IFC 

AMULT 

.EG. 

0 1 GO 

TO 4 



DAC00710 

C 









DAC00780 


W9ITE< OUTFIU. 

1090 

) 

AMULT, 

AREA. 

CALC. OPTION. TITLE 

DAC00790 

1090 

FORMAT< t8X*Ill 

. 2A4 

■ . 

I4t 3A4) 


DAC00800 


IF! 

CODE 

•EG. BLANK 

) 

GO TO 

80 


OAC00810 

10 

READ! 5. 

22. EN0=80 

) 

TRACT 



DAC00820 


0AC00d30 
DAC00840 
DAC00850 
OAC00860 
DAC00870 
DAC00880 
0AC00890 
0AC00900 
OAC00910 
OAC00920 
DAC00930 
DAC00940 
OAC00950 
DAC00960 
DAC00970 
DAC00980 
DAC00990 
OACOIOOO 
OACOlOlO 
DAC01020 
DAC01030 
OACOl 040 
DAC01050 
OACOl 060 
OAC01070 
DAC01080 
OAC01090 
DACOl 100 
DACOl 110 
DACOl 120 
OACOl 130 
DACOl 140 
OACOl 150 
DACOl 160 
OACOl 170 
DACOl lao 
OACOl 190 
OACOl 200 
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ouu uou u u o u u uu uuouu uuuu 



1 

I 


OACOt 210 

READ DIME FILE RECORD AND SELECT REQUIRED INFORMATION 
550 IFCFlLE*EQ«aNRY) GO TO 555 

READ! infile *560 .ENO^SO 01 RECO( II •RECOO) tRECOCS) «L I NK « RECO ( 1 0 I • 

XRECD( 11 l•REC0( 21 .RECOI Al .RECOO) .RECDC9) .REC0<6) « 

XRECOI ri.FX.Fr.TX.TV 

560 FORMAT! 28X.AI.16X.2fI3.2X) • 29X « I 7 .2 16 • 1 9X .4 I A • 2 ! 1 3X « 15.1X1. 

X5AX. A17) 

GO TO 558 

555 READ! iNFILE.ENOsaoO) IREC 
558 CONTINUE 

NONE STREET CODE 
RECO! 1):k IREC! 22) 

FROM NODE NUMBER AND MAP NUMBER 
RECD!2)slREC!3l 
RECD!3|>1REC! A) 

TO NODE NUMBER AND MAP NUMBER 
RECD! A|=|REC! 6) 

REC0!5):sIREC(7l 
BLOCK NUMBER. LEFT AND RIGHT 
R£CD(6|s|REC! 30) 

RECDC7)s|R£C! 31 ) 

PLACE CODE. LEFT AND RIGHT 
RECD!8)^IRECC AA) 

RECO<9)^IREC( A5) 

TRACT NUMBER. LEFT AND RIGHT 
RECO! |0)s|REC!32) 

R£CDClllsIREC!33) 

STATE PLANE COORDINATES FOR FROM AND TO NODES 
FX=XREC!70) 

FYs=XREC<7i) 

TXisXRECC73) 

Ty*XREC<7A) 

SAVE RECORD GEO-COOES 
DO 90 J=l.l 1 
RECS! J )=RECD! J> 

90 CONTINUE 


SEQUENCE NUMBER 


LINK^^^IREC! 13) 


RECIN^RECIN A I 


MAKE BLOCK NUMBERS UNIQUE BY COMBINING lillTH TRACT NUMBERS. 

IF! LCODE .NE* 6 ) GO TO 5651 

C 

DO 565 K = 6.7 
J s KAA 

RECOCK) s M00CR£CDCK)«10) A RECOC K) /I 00A| 0 
RECDCJ) = MODCRECDC JI.IO) A RECDC J) /I 00 A1 0 
RECO! K ) ss RECDCK ) A RECDC J) A1 0000 
IF! CALC •EQ. BGPS ) RECOCK) * RECOCK) / 100 
565 CONTINUE 
C 


OACOt 290 
OACOl 300 
0AC0I3I0 
DACOl 320 
OACOl 330 
DACOl 3A0 
DACOl 350 
DACOl 360 
OACOl 370 


DACOl 380 
DACOl 390 
DACOl AOO 
DACOl A 10 


A-VI-4 
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SELECT ONLY BOUNDARY SEGMENTS* 


5651 KEYL = RECO< LCOOE I 
KEYR = RECOC RCOOE I 
IF CKEYL*EQ«KEYR) GO TO 550 


DAC01420 
0AC01430 
DAC01440 
0AC01450 
0AC0I460 
DAC01470 
DAC01480 
DAC0I490 
OAC01500 
OACOt 510 


ENCODE NODE AND MAP NUMBERS# ALL RESULTING A* S UNIQUE IN TRACT 
DO 566 1*2# 4# 2 

RECDI I l^sRECDI I ) ♦ 100004RECOI I>1 I 
566 continue 


DAC01640 

GO TO 5801 

OAC01660 
OAC01670 

KEYR IS REGION TO LEFT OF SEGMENT AMEN DIRECTION IS REVERSED. TX# T0AC01680 
FROM NODE COORDINATES. DAC01690 

OACOl 700 
OAC01710 

575 ARITE (0UTFIL#570I KEYR* KEYL# LINK# RECOU), RECDI2I. TX#TY DAC01720 

REC0UT=REC0UT ♦ t OACOl 730 

580 IF (COUNT.EO.O) GO TO 581 OACOl 740 

5801 IFC ISKIPI RECSI ECODE- I 1# SELECT > .60. I I GO TO 550 


IF (COUNT.EQ.O) GO TO 575 

TF( ISKIPf RECS( ECODE ) # SELECT I .EO. 1 I 


KEYL IS COUNTERPART 
REGION. 


OACOl 760 
OAC01770 

SEGMENT OF KEYR# TO DESCRIBE BOUNDARY OF AD J 0 INOACO 1 780 

0AC01790 
OACOl 800 
OAC01810 


581 WRITE f0UTFIL#570) KEYL# KEYR# LINK# RECO(2>« RECDC4># f X # FY 
570 FORMAT! 319# 41 101 
RECOUT = REC0UT41 
GO TO 550 

800 WRITE (0UTFIL#8I0) NINES 
810 FORMAT ! 19) 

END FILE OUTFIL 
WRITEI6«850) RECIN# RECOUT 

850 FORMAT! *0 PRESORT PROCESSING COMPLETED* /// lOX# 16# * RECORDS 
X* // lOX# 16# • RECORDS PASSED TO SORT • I 
CALL EXIT 
STOP 
END 

FUNCTION ISKIP ! KEY. SELECT ) 

IMPLICIT INTEGER! A-Z) 

COMMON NCOOE#COUNT#RECO#SLlST 
DIMENSION RECO! 11)#SLIST!2000I 
ISKIP * O 
TOP* I 

BOTTOM=COUNT 

TRACTxKEY 

10 IF! BOTTOM .LT. TOP ) GO TO 301 
MIOPT X TOP ♦ ! BOTTOM- TOP) /2 
IF! TRACT- SLIST!M1DPTI I 15# lOO# 20 
15 BOTTOM * MIOPT - 1 
GO TO 10 

20 TOP * MIOPT 4 I 


OACOl 830 
DAC0I840 
DAC0I850 
OAC01870 
OACOl 880 
OACOl 890 
IN0AC01900 
DAC01910 
OACOl 920 
DAC0I930 
OACOl 940 
DAC01950 
OACOl 960 
DAC01970 
0AC0t980 
OACOl 990 
OACO2OO0 
0AC02010 
OAC 02020 
0AC02030 
0AC02040 
OAC 02050 
OAC02060 
OAC02070 
0AC020S0 


omamm page is 

OF POOR QUALm 


too 

301 


60 TO 10 


0AC02090 

I5KIP = 1 


DAC02100 

IFC SELECT 

•EQ« tOOMSKlP^O 

0AC02110 

RETURN 


0AC02120 

IFt SELECT 

•E0« tool ISKIP s 1 

0AC02130 

RETURN 


DAC02140 

END 


DAC02I50 


A -VI- 6 


uuu u uuuuuuuu 


IMPLICIT INTEGER (B-Y> 
1NTEGERM2 ND(4> 

DIMENSION N0<2)tNS(3) 
EQUIVALENCE (NGI 1 ) .NO! 1 > ) 
DOUBLE PRECISICN ZMULT 
DIMENSION TITLEOI* OPTIONO) 
DIMENSION TLISTIZOOO) 

COMMON ELISTI 2000* 5 ) • 


ZMULT 


DATA R« infile. OUTl. OUT2. 

X / 1. 9. 10. 11 . 

logical PIOS / .FALSE. / 

LOGICAL AOJ / .false* / 

LOGICAL LIST / .FALSE. / . BNOS 
DATA NUM / 0 / • BGRP / 'BapS > 

data BLKS / 'aLKS* f « TDRPT /O/ 
DATA BLANK /• •/ • lA /*A*/ 


EOF • MAX 
999999999.2000 


AREA. 

0.0 * 


ATOTALi 

0 *0 B 


-FALSEo 


DROPT /O/ 


OPTION PROCESSING 


5001 


CNT=0 

REAO<S*SOOlBERR3:999q) AMULT bCNI TS bKALC.QPT ION« T ITLE 
FORMATfFlO«OB2A4t 3tl«3A4) 


(ELtSTc t « J| • J* 1 «5) 


2MULT » ARULT 4 .00000001 

IF fOPriONin .EQ. 1) LIST « .TRUE. 

IF fOPTlQN(2> .EG* 1) BNOS = .TRUE* 

IF (OPTIONO) .EG. i) AOJ s .TRUE* 

READ! INFILE. 5002, ENOsSOO) KEY. TlIST(I). 

5002 FORMAT! 719) 

RRITEC6.5014) TITLE. KALC. UMTS. OPTION, KEY 
5014 FORMAT! lOX. «U. S. BUREAU OF CENSUS “ DIME AREA-C^NTRQ ID 

XYSTER !OACS)» // 25X. 3A4 // llX. •CALCULATIONS ARE FOR *.A4. 

X • IN •.A4.5x.311.* IS OPTION*/// 5X, *FIRST AREA IS*. Ill // ) 
100 RsRFl 

IF( R .LT. Max ) GO TO 120 
«RITe!6.5003) KALC. KEY. MAX 

5003 FORMAT! // • 44* •• A4 . 111. * HAS*.I5.» * CR MORE SEGMENTS* ) 
DROPT = OROPT 41 

NIX = -1 

105 READ! InFILEb 5002. ENO>500)KEYX. TLlST(l). ( ELIST! & • J I • J«1 .5 I 
NIX = NlX ♦ 1 

IF( KEVX .EQ. KEY ) GO TO lOS 
RRITE! 6. 5004 > Nix 

5004 FORMAT! 24X, IS. * SEGMENTS CROPPED. NO CALCULATIONS* // ) 

NIX s 0 

R = 2 


120 READ! IHFILE. 5002. END-500 )KEYX. TLIST(R|. (ELISTIR. J I. J«1 .5) 


1F( KEVX .EG. KEY 1 GO TO IOC 


% 

% 

% 


PROCESSING 


4 

4 

4 


130 NUM 3 NUM 4 1 


NBLS 

AREA 


R-1 

0.0 




OACCOOOlO 
OACC00020 
0ACC00030 
DACC00040 
DACC00050 
OACC00060 
0ACC00070 
OACC00060 
DACC00090 
ASUBOACCOOlOO 
0.0 OAC 00110 
DACC00120 
0ACC00130 
DACC00140 
0ACC00150 
0ACC00160 
DACC00170 
OACC00160 
DACC00190 
DACC00200 
OAC 00210 
OAC 00220 
DAc 00230 
0ACC00240 
DACC00250 
DACC00260 
DACC00270 
DACC00280 
OAC 00290 
OAC 00300 
DACC00310 
DACC00320 
0ACC00330 
DACC00340 
DACC00350 
0ACC00360 
0ACC00370 
DACC00380 
DACC00390 
DACC00400 
OAC 00410 
0ACC00420 
0ACC00430 
OACC00440 
OACC00450 
0ACC00460 
DACC00470 
0ACC00480 
OACC00490 
OAC 00500 
OACC00510 
DACC0OS2O 
0ACC00S30 
0ACC00540 
OACCOOS^O 
0ACC00560 
OACCOOS70 
0ACC00580 
0ACC00S90 
0ACC00600 
0ACC00610 


A -VI- 7 



CENTX 

CENTY 

IND 

CALL 


=i 0 
= 0 
= 0 
CHAIN 


IF( 

IF( 


COMPS 

COMPS 


• NF . 

• EQ< 


NOLS* COMPS* CLOSES# RVSLS 
CLOSES ) GO TC 140 
1 ) GO TC 150 


) 


UBITEI 6#5C05) KALC, KEY# CQNFS 


5005 


140 

5006 


format C •0444 

GO TO ISO 


»A4« Ml 


HAS* f 13# 


BOUNCED REGIONS - CHECK* 


145 

5007 

C 

5007 


HRITEI 6#S006) KALC# KEY# COMPSi 
FORMAT! *0444 *#a 4# 111# • HAS*i 

< CLOSED. REGtCN NOT PROCESSED' 

WRITE! 6. 5007 ) 

00 145 I = MNELS 
NO! n = EL 1ST! I# 21 
N0!2> = ELIST< I#3) 

NS! I ) ELIST! I# n 
NS!2I - ELIST! I#4> 

NS!3) - ELIST! l#5) 

WRITE!6#5C97 ) ND# NS 
F0RMAT!2!5X#A2#I5) #3112) 


CLOSES 
I3i 
) 


COMPONENTS. ONLY* # I 3# * 


FORMAT! 

FROM 


•0 

NODE 


SEGMENT listing: * // 

TO NODE REC NUMBER FROM X 


FROM Y« /) 


DROPT = OROPT ♦ I 


GO TC tOOO 


ISO call CALC! NBLS# AREA# CENTX# CENTY # MX# MY ) 
IF! AREA .LE. C*0 ) OROPT = CROPT 4 I 


IF! 

IF! 


CENTX mUEf 
not. BNOS 


0 ) CALL POLYPT! 
) GO TO 1000 


NBLS# CENTX# CENTY# INO.MX.MY) 


soil 


180 


SYMAP=IA 
KEYl=KEY/l COOO 
KEY2=MOO!KEY# 1C 00 0 I 
KEY2=KEy?4100 

DO 180 I - t# NRLS 
KEY2-KEV24I 

WRt TE!0UT2«50M ) KE Y 1 # SYMAP , ELI ST! I #5 > •ELIST! I #4) ,ELIST( I # I ) # 
XKEY2 

FORMAT! I5*4X# A 1 #21 10#20X*HO#13X#I7) 

symap^blank 

CGNT INUE 


KeY2=KEV24l 
WRITE!OuT2«501 1 ) 
XKEY2 


KEY I # SYMAP# EL I ST! I #5 1 # EL I S T ! I * 4 ) , EL I ST ( I , 1 ) # 


CACC00620 
DACC00630 
CACC00640 
OACC00650 
0ACC00660 
DACC00670 
OACC00680 
CACC00690 
DACC00700 
)0ACC00710 
DACC00720 
0ACC00730 
CACC00740 
AROAC 0075!) 
CACC00760 
CACC00770 
0ACC00780 
CACC00790 
CACC00800 
OACC00810 
CACC00620 
CACC00830 
CACC00d40 
0ACC00850 
OACC00860 
0ACC00870 
0ACC00880 
CAC 00890 
CACC00900 
0ACC00910 
0ACC00920 
CAC 00930 
0ACC0094C 
DACC00950 
CACC00960 
0ACC00970 
CACC009e0 
DACC00990 
OACCOIOOO 
DACCOlOlO 
DACC01020 
CACC01030 
0ACC01O40 
DACC0I050 
0ACC01060 
CACC01070 
0ACC0T080 
CACC01090 
OACCOl 100 
DACCOlllO 
CACCOl 120 
0ACC01130 
DACC01I40 
OACCOl ISO 
OACCOl 160 


C OACCOl 170 

1000 IF! LIST > WRITF!6*5008)KALC# KEY# NBLS# AREA# UNITS# CENT X # CENT YD ACCO I 180 
5008 FORMAT! //5X# A4# tit# 19# • SEGMENTS. AR6A =«# FIS.S#1X« A4 DACC0M90 

X / 29X # • CENTROID IS :»#2tl5 ) OACC01200 

IF !PIOSI CALL REFMT !NBLS#KEY> OACCOl 210 

C 0ACC0I220 


A-VI-8 


u u 


c 

c 


IF(RVSLS .GT. C) t(iR I TE ( 6 « 50 1 5 ) RVSLS 
5015 F0RMAT< QX. Ill, • REVERSALS - CHECK FCR PCSS# ERPCRS.* 
IF( IND .GE, 0 ) GO TO IlOO 

CALL ADJUST ( KBLS, CEnTX, CEKTY, NGOE ) 

MRITE(6«5009) NODE • CENTX, CENTY 

5009 FORMAT! / 9X, •CENTROID MAS CLTSIDE BOUNDARY - ADJUSTED 

X III / 29X , -NEW CENTRCIO IS :**2I15 

IlOO WRITE! OuTl, 6C10 ) KEY, AREA, CENTX, CENTY 

5010 FORMAT! IIO, F20.6, 2ll0 ) 

ASUB = ASUE ♦ AREA 
ATOTAL= ATOTAL ♦ AREA 

1150 KF( ADJ ) CALL AOJNCy < NELS, KEY • TLIST ) 

DO 1200 1-1*5 

1200 ELIST!l,I)= ELlST!R,r> 

1250 key = KFYX 

R = 2 


1100 IF( KEY .LT. ECF > GO TO 120 

IF( TDRPT ,E0, 0 ) TDRPT = DRCPT 

MRITE!6,5013) NUM, KALC, TDRFT, ATGTAL* UMTS 

5013 FORMAT! / IX, 10(* •) // 110« IX, A4, •, •• I6« 

X // 5X, •TOTAL AREA IS* , El3,5, IX, A4 // IX, 10 ( 

GO TO 1350 
500 KEYX= EOF 
GO TO 1250 

9999 MR1TE!6,5C99) 

5099 FORMAT! »l ERROR IN FIRST RECORD* ) 

WRlTE!6«500l ) I , AMULT, UNITS* KALC* OPTION* TITLE 
1350 STOP 
END 

SUBRGUT INE CHA IN ( N8LS , COMPS * CLOSE S , R VSLS ) 


C 

c 

c 

c 

c 

c 

c 


THIS SUBROUTINE IS IDENTICAL TO THAT USED IN THE DIME ED 


IMPLICIT INTEGER !A-Z) 

DOUBLE PRECISICN ZMULT 

DIMENSION H0LCER!5 >,ELIST! 20CC, 5) 

COMMON EL1ST«ZMULT 

BEGIN = I 

END = 1 

COMPS = 0 

RVSLS = 0 

CLOSES - 0 

HEAD s ELlST!eEGIN,2) 

TAIL = EL1ST!£N0,3> 

IF! NBLS * 1 ) 1250, 1200* ICOO 


OAC 01230 
) 0ACC01240 

DACC01250 
0ACC01260 
DACC01270 
0ACC01280 
CAC 01290 
TO NODE*DACC01300 

) DACC01310 

CACC01320 
0ACC01330 
DACC01340 
0ACC01350 
OACCOl 360 
DACC01390 
CACC01400 
0ACC01410 
DACC01420 
OAC 01430 
DACC01440 
OACC01450 
CACC0146C 
OACC01470 
0ACC01480 
CACC01490 
DACC01500 
CACC01510 
CACC01520 
DACC0t530 

• DM ITTEC0ACC01540 

• *1 )CACC01550 

DAC 01560 
CACC01570 
DACCO150O 
0ACC01590 
CACC01600 
0ACC01610 
0ACC01620 
OACC01630 
CAC 01640 
DACC01650 
DAC 01660 
CACC01670 
0ACC01680 

IT PACKAG0ACC01690 
DACC01700 
0ACC01710 
CACC01720 
CACCOl 730 
DACC01740 
CACCOl 750 
0ACC01760 
OACC01770 
DACC01780 
DACC01790 
DACCOieOO 
0ACC01810 
DACcotaao 
OACC01630 
OACCOl 840 
DACCOiaSO 


A-VI-9 


u u 




1000 IF( fr*EAC .FO. 
START = ewe ♦ 
IF( <;tapt .gt 
00 1100 


TAIL ) GO TO 1200 
t 

, NBLS ) GO TO 1200 
I - start* N3LS 


IF 

IF 


GO 

GO 


TC 

tc 


3000 

2000 


1 1 00 


NBLS 


I 1 


1150 

1200 


1250 

CHAIN 


IELISTI 1*3).EQ*HFA0> 

<ELlSTCI*2>*f:0.TAIL) 

CONT INLE 

OG 1150 I = start, 

2: I ♦ I 

IF I l•eo•^eLS) 1 1 « 1 
IF (ELISTI I*2>*E0*HeA0) 

(ELISTC U3>«E0«TAIL) GO 
CflNTlNtiE 

CCMPS s COMPS 4 I 

IF( HEAD .EO, TAIL ) CLOSES = CLOSES ♦ I 

IF( END .GE* NELS ) RETURN 

♦ A 

ELISTIENC*!) = -ELISTICNO*!) 

IF (CLOSES.GE.2) GO TO 1400 


IF 


GC 

TC 


TO 2900 
1990 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THE FOLLOWING SECTION REARRANGES THE ORDER OF SEGMENTS 


PERMIT CHAINING 
CONFIGURAT ICNS* 


AS ONE 

VI2« 


COMPCNENT FOR FIGURE EIGHT 


IN 

OR 


CACC01660 
DACC01870 
cACCOieeo 
CACC01890 
0ACC01900 
OACC01910 
OACC01920 
0ACC01930 
OACC01940 
CACC01950 
OACCOl 960 
0ACC01970 
CACC01980 
CACC01990 
CACC02000 
OACC02010 
CACC02020 
CACC02030 
OACC02040 
CACC02050 
THE CHAIN 0ACC02060 
CHECKeReOAOACC020T0 
CACC02080 


XXXXX XXX 
X X 

X X 

rxxxxxxxxxxxxxxxx 
X x 

X X 

X X 

XXX xxxxxxx 


xxxx 

XX X 

XX X 

X XXX 
X X 

XXXX XXX 


XXX 


( XXXXXXXX 
X X X 

X X 

X XXXXXXXXX 


APfT types OF REGIONS WHICH CCNTAIN ONLY 
THE PROGRAM CAN INTERPRET AS HAVING TwC 


0ACC02090 
DACC02100 
CACC02110 
OACC02120 
CACC02130 
DACC02140 
DACC021S0 
OACC02160 
OACC02170 
0ACC02180 

CNE COMPCNENT BuT WHICH 0ACC02190 
OR three closed COMpONENOACC02200 

0ACC02210 


XXX 


CLOSES = 0 
CCMPS = 0 
Jl - ENC ♦ 1 
ENOl = END 
CO 1300 Kl = 
HEAD - EUlST 
DO 
IF 


1 *ENC1 
< K 1 . 3 ) 

1300 I = JlvNBLS 
I EUISTIKI *3 )-.EC.ELlST( I 


►2)1 GO TO 2000 


1300 CONTINUE 

DO 1350 Kl = l*ENCl 
HEAD = ELIST (Kl*2) 

DO 1350 1 = JUNBLS 

II = I 4 1 

IF ( I.EG.NBLS) I I = I 
IF (ELISTIKI *3 ).EC.ELIST( I 
1350 CONTINUE 

CLOSES = I 
COMPS = 1 


2 }} GO TO 1990 


1400 END = END ♦ 1 
BEGIN = END 
HEAD = EUIST(BEGIN*2) 
TAIL = El.IST(EN0*3 ) 

GC TC ICOO 


OACC02220 
OACC02230 
0ACC02240 
0ACC02250 
CACC02260 
DAC 02270 
OACC02280 
OACC02290 
OACC02300 
CACC02310 
DAC 02320 
0ACC02330 
0ACC02340 
CACC02350 
0ACC02360 
OACC02370 
0ACC02380 
0ACC02390 
OACC024O0 
DACC024I0 
CACC02420 
DACC02430 
OACC02440 
OACC02450 
DACC02460 
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s 


1990 

TEMP = 6L1ST( I^2> 

OACC02470 


ELISTCI*2) - ELIST(I»3> 

OACC024B0 


ELtST(t«3| = TEHP 

OACC02490 


TEMPY = ELIST( I.5) 

CACC02500 


TEMPK = ELIST( ) 

DACC02510 


ELIST = ELIST (Il«4) 

CACC02S20 


ELIST «l.5) = ELIST (Il,5) 

DACC02530 


ELlSTfll.4) = TeMPX 

0ACC02540 


EL15TCII«5) = TE»#PY 

OACC02550 


RVSLS = RVSLS 1 

DACC02560 

2000 

END = END 4 1 

DACC02570 


IF( END .EQ. I ) GO TO 2050 

DACC025Q0 


00 2010 K=l*5 

0ACC02590 

2010 

HOLDER(k) = ELIST(I*K) 

OACC02600 


TEMP = I 

DACC02610 

2020 

TEMP = TEMP - 1 

DACC02620 


DO 2025 K=1 ,5 

0ACC02630 

2025 

ELISTC TEMP41 *K ) = EL I ST ( TEMP ) 

OACC02640 


IF( TEMP #GT* end ) GO TO 2C20 

0ACC026S0 


00 2C30 K=t .5 

OACC02660 

2030 

ELISTIENO.K) = HOLOER(K) 

DACC02670 

2050 

TAIL = EL!ST(END*3I 

OACC026BO 


GO TO 1000 

0ACC02690 

2990 

TEMP = ELIST! I .2) 

OACC02700 


ELISTd.2) = EL[STI1«3) 

DACC02710 


ELISTII.3) = TEMP 

0ACC02720 


TEMPY = ELIST! 1.5) 

OACC02730 


TEMPX = ELIST! 1.4) 

0ACC02740 


ELIST (I.4I = ELIST III. 4) 

DACCC2750 


ELIST 11^5) = ELIST III. 5) 

OACC02760 


ELISTIll.4) = TEMPX 

0ACC02770 


ELISTlfl.S) = TEMPY 

CACC02760 


RVSLS = RVSLS 4 1 

0ACC02790 

3000 

END - END 4 1 

DACC02600 


DO 3010 X=l.5 

0ACC02810 

3010 

HOLDERIKI = ELISTIENO.K) 

0ACC02a20 


TEMP = END 

0ACC02830 

3020 

temp = TEMP - 1 

CACC02840 


DO 3030 K=t.5 

OACC02850 

3030 

ELIST! TEMP41 .K ) = EL I S T ( TEMP . K ) 

DACC02860 


IFI^TEMP .GT. EEGIN ) GO TO 3020 

0ACC02870 


IFI^I .EO. EKC ) I = BEGIN 

DAcco2eao 


CO 3100 IC^l.S 

CACC02890 


ELISTCBEGIN.K) = ELIST! I. K) 

CACC02900 

3100 

ELISTCI.K) = HCLDER (K) 

DACC029I0 


head = ELIST IEEG1N.2) 

CACC02920 


GO TO 1000 

DACC02930 


END 

DAC 02940 


SUBROUTINE ADJUST! N8LS. CX. CY. NODE ) 

OAC 02950 



DACC02960 


ROUTINE TO ADJUST BAD CENTROIDS 

DACC02970 


TO NEAREST NODE 

CACC02980 



CACC02990 


implicit integer (B-Y) 

OACC03000 


double precision zmult 

CACC03010 


COMMON ELIST! 2000. 5 ). ZMLLT 

DACC03020 



DACC03030 


NO 0 

OACC03040 


\t3 


A -VI- 11 




AXY = OX * DX ♦ DY ♦ OY 



DACC03080 



IF( I .EQ. 1 ) GO TO 100 



DACC030R0 



IF( A .LT. AXY ) GG TO 101 



0ACC03100 


1 00 

A = AXY 



DACC031 10 



NO = I 



DACC03120 


101 

CONT INUE 



OACC03130 



IF( NO .LE. C ) GC TO 200 



DACC031A0 



CX - ELIST(NC*A) 



CACC03150 



CY = ELIST<ND,5) 



DACC03160 



NODE = ELIST(NC*2) 



DACC03170 



RETURN 



CACC03180 

c 





0ACC03190 


200 

CX ^ 0 



CACC03200 



CY = 0 



CACC03210 



NODE =0 



CACC03220 



RETURN 



CACC03230 



END 



DAC 032AC 



SUBROUTINE CALC< NSEG, AREA* 

CX. CY. MINX, mint ) 

CAC 03250 

c 





DACC03260 



implicit integer i 0-Y ) 



CACC03270 



DIMENSION ELISTI2000.5) 



CACC03280 



COMMON ELIST* ZMUlT 



DACC032R0 



double oqeciSlCN ZMULT# ARSlX. 

A. 

OX.DY. XI. Yl. X2.Y2 

OACC03300 



dimension ARS( 10) 



CAC 03310 



BEGIN = 1 



DACC03320 



NAR = 0 



DACC03330 



A := Q 



0ACC03340 



OX ^ 0 



CACC03350 



DY = 0 



OACC03360 

c 





CACC03370 

c 





CACC03380 

c 


use First cccrcinates to reduce 

ALL OTHERS 

CACC03390 

c 





0ACC03400 

c 





0ACC03410 



MINX = i ELISTIUA) / 10000 ) ♦ 

lOOOO 

CAC 03420 



MlNV = I ELIST<1*5) / lOOCO ) ♦ 

10000 

CAC 03421 

c 


CHECK 

FOR 

MULTIPLE BOUNDARIES 

OACC03440 


5 

NAR = NAR ♦ 1 



DACC03450 



DC 2C I = BEGIN. NSEG 



DACC03460 



IFC EL I ST I I. 1) ) 10.20.20 



CACC03470 


10 

END = I 



0ACC03480 



GO TO 30 



CACC03490 


20 

CONT INUE 



DACC03500 



END - NSEG 



0ACC035I0 

c 





DACC03520 

c 





0ACC03530 

c 


REDUCING COORDINATES AND LSE 

OF 

DOUBLE PRECISION 

DACC03540 

c 


MINIMIZES TRUNCATION AND ROLNDING 

ERRORS. 

CACC03550 

c 





DACC03560 

c 





DACC03570 


30 

XI = ELIST(END.A) - MINX 



DACC03580 



Yl = ELISTIENO.S) - MINY 



0ACC03590 



DO 100 K = BEGIN. END 



DACC03600 



X2 = EL 1ST ( K.4I - MINX 



CACC03610 



Y2 = ELISTI K.5) -MINY 



DACC03620 

c 





DACC03630 



A = A ♦ (X2-XI ) ♦ IYI+Y2) 



CACC03640 

c 





0ACC036S0 



X 

II 

X 



CACC03660 



Yl = Y2 



0ACC03670 

c 





0ACC03680 
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U V 


too CONTINUE 

C ACCul^UL/kTE AREAS IN MRS* 

C 

ARS(NAR) = -A 
A = O.QQOOCOO 

C COMPUTE centroid OF LARGEST AREA ONLY 

BEGIN = end ♦ I 
IF( END ,LT. NSEG ) GO TO 5 
BEGIN = 1 
AS = ARS< I ) 

I AB= I 
A = A« 

ifinap •eo« 1 ) GO TO leo 
IF (NAR.GT.IO) GO TO 500 

c 

DO 150 1 - 2tNAR 

A ;= A ♦ ARSt I I 

IF| ARSC I ) •LE* AB ) GC TO 150 

AB = ARS(I) 

I A0 = I 

150 CONT INUE 

100 AREA = A • Z^OLT 

IF( A .EO* 0.0 ) GC TO 500 

IF(NAR .EG. I ) GC TO 200 
K = I 




00 185 I = 1, NSEG 

IF< ELlST(l.l) .GE. 0 ) GO TO 

K = K A 1 

IF( K - IA0 M85.183.184 

183 


BEGIN = I A 1 
GO TO 185 

184 


END = I 
A = AB 

GO TO 2CC 

185 


CONT INUE 
END = NSEG 

A = AB 

200 

XI = 

ELIST(ENC.4> - MINX 


Y 1 = 

ELIST(ENC.5) • MINY 


ARSIX 

= A A 3.0 


NOTE THAT X I AND Y1 ARE ALREADY SET 


C 


C 


c 


c 

300 

C 


c 

c 

c 

c 


DO 300 K = BEGIN. END 


X2 

= 

ELIST ( 

K .4 1 

- 

Y2 

= 

EL 1ST < 

K.5> 

— 

cx 


OX A ( 

Y2 - 

Yl 

CY 


OY A ( 

X2 - 

XI 

XI 

= 

X2 



Y1 

= 

Y2 




CONTINUE 

CX = OX ♦ MINX 
Cy = -OV ♦ MINY 


MINX 

MINY 

) A (XlAXl A XIAX2 ♦ X2AX2 ) / ARSI X 
) A (YlAYl A YIAY2 A Y2AY2 ) / ARSIX 



0ACC036R0 
DACC03700 
0ACC03710 
OACC03720 
0ACC03730 
DACC03740 
OACC037S0 
DACC03760 
0ACC03770 
OACCO370O 
DACC03790 
CACCO30OO 
CACCO301O 
CAC 03611 
OAC 03812 
CACC03e20 
CACC03630 
0ACC03640 
CACC03850 
CACC03860 
DACC03e70 
CACCO308O 
DACC03890 
CACC03900 
CACC03910 
DACC03920 
OACC03930 
OACC03940 
0ACC03950 
OACC0396O 
DACC03970 
0ACC03980 
0ACC03990 
CACC04000 
CACC04010 
CACC04020 
CACC04030 
0ACC04040 
CACC04050 
0ACC04060 
DACC04070 
0ACC040a0 
0ACC04090 
OACC04100 
DACC041 10 
CACC04120 
CACC041 30 
CACC04140 
0ACC04150 
CACC04160 j 

DACC04170 
OACCO410O 
0ACC04190 
0ACC04200 
0ACC04210 
0ACC04220 
OACC04230 
0ACC04240 
CACC04250 
DACC04260 
0ACC04270 




I 


A -VI- 13 



noon 




c 

SOO CK = 0 

CY = 0 

RETUfiN 
END 

SURRCUTINE REFIi#T ( KBL S. KE V ) 

I^^PLICIT integer (A-Z) 

CIMenSION ELISTI 2C00.5) 

CO^MCN EL 1ST 
KEYl=KEY/l COCC 
KEY2=M00(KEY, 1 COCC ) 

\ftRlTFC 1 3« ICO ) KEY I,KEY2 
100 FORMAT! 1X.2I5 ) 

KMIN=ELIST< 1*4) 

XMAX=EHST< 1*4) 

YMIN=EL 1ST ( 1 vE ) 

YMAxsELIST! 1 *5 ) 

DO 10 J=2*NELS 

1F(XMIN*GT«ELIST( J»4 ) ) XMIN^PLI ST( J«4) 

IF< XMAX.LT .ELI ST( J#4 ) ) XMAX = EL I ST ( J * 4 ) 

IF( YMIN.GT.EL IST(J,5)) YMIN=ELIST(J.5) 

IFIYMAX.LT .ELIST( J.5) ) YMAX=LLl ST < J , 5 ) 

10 CONTINUE 

«RITE( 1 3» 2C0 ) XMIN • YMIN,XMAX,YMAX»NHLS 
200 FCRMATI4I9, 15 ) 

M2 = 0 
MK=NeLS 
20 CONTINUE 
Ml=:M2^l 
M2=M244 

IF(MK«LT«4 ) M2=NBLS 

KRITEI 13. 300 ) (ELIST(M.4),ELIST(M.S) ,MrMI •M2) 

300 F0RMATI4I2I9) ) 

MK:=MK-4 

IF(MK.GE.0) GO TO 20 
RETURN 
END 

SUBROUTINE INSECT i IXY. IND ) 

C SUBROUTINE TO CHECK TWO LINE SEGMENTS FOR INTERSECTION 

C 

C the ENOPOiNTS CF THE LINES ARE TRANSMITTED (INTEGER BINARY) 

C IN THE ARRAY MXY* (FIRST B ELEMENTS) ( X-Y X-Y X-Y X-Y ) 

C 

C THE VARIABLE MNO* IS RETURNED: 0 IF NO INTERSECTION 

C -I IF LINES ARE COINCIDENT 

C -*'1 IF THEY INTERSECT 

C THE coordinates OF INTERSECTION 

C ARE RETURNED IN IXY(9) AND IXY(IO) 

C 

c 

DIMENSION IXY ( 1 0 > • X Y ( 8 ) • S ( 2 ) «P ( 2 ) 

INO = 0 
X = 0 
Y = 0 

RETURN IF NO INTERSECTION POSSIBLE 

CROSS PRODUCT CALCULATION 

ACX = IXV( 1 ) - IXY(5) 

ACY = IXY(2) - IXY(6) 


CACC04280 
0ACC04290 
DACC04300 
CACC04310 
DACC04320 
OAC 04330 
DAC 04340 
DACC04350 
DACC04360 
DACC04370 
0ACC04380 
DACC04390 
OACC04400 
0ACC04410 
DACC04420 
0ACC04430 
DACC04440 
CACC04450 
CACC04460 
0ACC04470 
DACC04480 
0ACC04490 
OACC04S00 
CACC04510 
DACC04520 
DACC04530 
CACC04540 
CACC04550 
CACC04560 
0ACC04570 
DACC04580 
DACC04S90 
CACC04600 
0ACC046I0 
DACC04620 
DACC04630 
CACC04640 
DAC 04650 
DAC 04660 
DACC04670 
OACC04680 
OACC04690 
DACC04700 
DACC04710 
OACC04720 
DACC04730 
0ACC04740 
DACC04750 
DACC04760 
DACC04770 
DACC04780 
DACCC4790 
CACC04600 
OACC04810 
CACC04820 
DACC04630 
0ACC04840 
0ACC04850 
DACC04860 
OACC04870 
0ACC04880 
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u u u 


? 


ADX 

ADY 


IXY(1 ) 
IXY(2 ) 


IXY( 7 ) 
I XY(8 ) 


BOX 
BCV 
BOX 
BOY 
A1 = 
A2 = 
IF 
R = 
IF 


: IXY(3) 
IXY(4) 
IXY(3> 
IXY(A ) 
lACX ♦ 


- IXY(5I 

- IXY(6) 

- IXYI7) 

- IXY(e) 
ACY - ACY 


ADX ) 

(BCX ♦ eoY 

IREILRN 

BCX ) « ( ADX ♦ 9DY 


0) GC To 2220 


( At « A2 .GT, 0.0 
(ACX ♦ BCY ACY ♦ 

( R .GT. O.ORETURN 
CHECK CGHNEARITY 

IFCAl.EQ.C .ANC. A2.EQ. 

CALCULATE INTERSECTION 
R = 0.0 

IF (Al .NE, 0 ) R= AeS(A2/AD) 

X = IXY(l) ♦ <IXY( 3 ) - IXYlin ♦ R 
Y = IXYI2I ♦ (IXY(4) - IXY(2)> ♦ R 
ROUND TO NEAREST INTEGER 

1XY(9) = X ♦ SIGN(.S.X) 

IXY( 10) = Y ♦ SIGM.5.Y) 

IND =l 
RETURN 

COLINEAR CHECK FOR OVERLAP (COINCIDENCE) 


2220 


IF (ACX 
IF (ADX 
RETURN 
END 

SUBRGUT INE 


♦ BCX 

♦ BOX 


• LT« 

• LT, 


0 ) 
0 ) 


IND = -I 
IN0= -1 


PDLYPT (N, NX, NY* IND* 


- BCY ♦ BOX) 

- ADY » BOX) 


MINX* MINY ) 


C 

c routine TC DETERMINE )|HETI-ER A PCINT IS XllTHIN A 

C 


c 

c 

THE POLYGON PCUNCARv 
THE NUMBER OF SEGMENTS 

SEGMENTS 
IS »N • 

ARE 

IN ElIST( 1*4)* 

c 

c 

•INO* IS returned: 41 

IF 

PT. 

IS 

INSIDE 

c 

0 

IF 

PT • 

IS 

ON THE eCUNDARY 

c 

-1 

IF 

PT • 

IS 

OUTSIDE 


C 

DIMENSION LXY( 10 )*EL 1ST (20CC.G) 
COMMON EL 1ST* ZM LLT 
INTEGER ELIST 
DOUBLE PRECISION ZMULT 
IX= NX- MINX 4 I 
lY = NY - MINY 4 1 

IND = 0 
INDX =0 

XX=IGC00Q. 

KOUNT = KOUNT 4 I 
L X Y ( 1 ) = 0 
LXY(2) lY 
LXYO) = IX 
LXY(4) = lY 
LXY(9) = 0 
LXY( 10)= 0 
IT = I 
GO TO 2G00 


OACCOABOO 
CACC04900 
CACC04910 
OACC04920 
CACC04930 
OACC04940 
OACC04950 
DACC04960 
CACC04970 
0ACC049fl0 
OACC04990 
CACCOSOOO 
OACC05010 
DACC05020 
CACC05030 
OACC05040 
OACC05050 
CACC05060 
DACC05070 
0ACC0S080 
OACC05090 
DACC05100 
CACC05110 
0ACC05120 
0ACC051 30 
CACC05140 
OACC05150 
DACC05160 
CAC 05170 
OAC 05160 
DACC05190 
PCLYGONOACC05200 
0ACC05210 
5) 0ACC05220 

CACC05230 
DACC05240 
DACC05250 
0ACC05260 
CACC05270 
OACC05280 
0A(CC05290 
DACC05300 
CACC05310 
OACC05320 
0ACC05330 
CACC05340 
CACC05350 
OACC05360 
CACC05370 
CACC05380 
DACC0S390 
0ACC05400 
0ACC05410 
OACCOS420 
OACC05430 
CACC05440 
CACC05450 
0ACC05460 
DACC05470 
CACC05480 
CACC05490 


non 


c 

c 

c 

c 

c 

c 


DPA« A LINE FROM THE PCINT TO THE Y-AXI 
OF INTERSECTIONS WITH ECUNDARV SEGMENTS. 
CLTSICE 

IF AN IKTERSECTICN OCCURS AT A NCOE 
CHANGE THE Y COORDINATE AT THE AXIS 


AND START OVER 


1000 IT = IT ♦ I 

LXY <21 = LXY (2) ♦ lY/lO ♦ 1 

IF ( ir.GT.S ) RETURN 
2000 INOX = 0 

00 3C00 I - l.N 

1 I = I ♦ 1 

IF ( I.EQ.N) I 1 - 1 

LXY <5) = ELISTII .4) - MINX ♦ I 

LXY <61 = ELIST<I .5) - MINY ♦ 1 

LXY <7) - ELIST<I1.4) - MINX ♦ I 

LXY <a> = ELIST<II«5> - MINY ♦ 1 

CHECK FOR PT AT A NOCE 

C 

CO 2110 L=5.7,2 

IF <LXV(L >*eO- IX.AND.LXY(L+l I.EQ.I V) RETURN 
2110 CONTINUE 

CALL INSECT! LXY# INT ) 

IF <INT) lC00#300C#2400 


C 

CHECK 

C 

2400 


FOR PT» ON BCLNCARY 

IF ILXY<9|*eO. IX.AND.LXYC 10) .EQ.IY) RETURN 


S AND COUNT THE NUMCACC05S00 
ODD IS INSICE#EVEOACC05510 
DACC05520 
DACC05530 
CACC05540 
CACC05550 
0ACC05560 
DACC05S70 
0ACC05580 
OACC05590 
0ACC0S600 
CACC05610 
0ACC05620 
DACC05630 
DACC05640 
CACC05650 
OACC05660 
0ACC05670 
0ACC05680 
0ACC05690 
DACC05700 
DACC05710 
DACC05720 
OACC05730 
DACC05740 
CACC05750 
CACC05760 


C 

CHECK FOR INTERSECT I CN WITH A CORNER 
C 

DO 2500 Jse#8#2 

IF( LXYC9) .nE. LXY(J-l) ) CC TO 2500 
IF (LXY< I0).EO.LXY< J> ) GO TC 1000 
2500 CONTINUE 

INDX = INCX ♦ I 
3000 CONTINUE 
IND = I 

IF<< INOX/2) * 2 .60, INOX ) IND = -1 

RETURN 

END 

SUBROUTINE ADJNCY <NBLS# KEY#LIST ) 

ADJACENCY LIST 

0 IRENS ION LIST! 2000 ) 

DATA N0UT3 / 12 / 

NENC = NBLS “ ) 

DO 1200 I =1# NENO 
IF< L.IST<1) .LT. 0 ) GO TO 1200 
NEXT= I ♦ 1 
N - LIST! I ) 

C UNOUPLICATE LIST 

00 1100 J = NEXT, NBLS 

IFI LIST(J) .EQ. N ) LISTIJ) = -1 

1100 continue 

1200 CONTINUE 

C PRINT AND COPY LIST 

WRITECC# 1300 ) KEY 

1300 FORMAT! *0 LIST OF ADJACENT AREAS FOR*# III/) 

DO 1500 I - I# NBLS 


CACC05780 
DACC05790 
DACC05800 
0ACC05610 
CACC05820 
0ACC05630 
DACC05840 
DACC05850 
CACC05860 
DACC05870 
0ACC05880 
DACC05890 
OAC 05900 
OAC 05910 
0ACC05920 
OACC05930 
0ACC05940 
DACC05950 
0ACC05960 
0ACC05970 
0ACC05980 
DACC05990 
CACC06000 
DACC06010 
DACC06020 
OACC06030 
DACC06040 
OACC06050 
CACC06060 
CACC06070 
DACC06080 
0ACC06090 
CACC06I00 
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1 ^#00 

1 450 

C 

1500 



IF( LI5T<I) .LF* 0 ) C,n TO 1500 

ViRITEf 6* 14C0) LI£T( I ) 

FOR»<AT( SOX* III ) 

KKRI Te<NOCiT3, 1450 ) KEY* LIST4I) 

F0RI»^AT« 2115 ) 

CONTINUE 

RETURN 

END 


DACC061 10 
0ACC06120 
CACC06130 
0ACC06140 
CACC06150 
CACC06160 
DACC06170 
OACC06180 
CAC 06190 


DS 
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u u 


H 


? 


C 


c 


III CORRECTED VERSION OF PIOS/75 miTH FIVE C5) FILES 
ORtVER/LA 

MM LATEST UPDATE JUNE 23 *75 Mil 
INTEGER END0FI20) 

DATA ENDOF/»9999«»*9 ••12A« •/ 

DIMENSION PI 3000|«Q< 30001 

OI MENS ION XC 30001 « V| 30001 • XLEI 1300 ) • VLEI 1300 I «XHE< 1 300 ) 
DIMENSION YHEI 1300I«1R£I 1300> 

DIMENSION INTSPC20»2) 

DIMENSION NSTPLC 16 I «LSTP( 16 #2 tSOI «XSTR| 3000 I •YSTRI3000 ) 
DIMENSION BLI 16>«BH| I6> 

REALAB A*B.CtO*6*F»DET.P0.T0 
COMMON /ALPHA/1 VI • 1 V2 • I V3 • I V4 • I VS 
REAL LUAREA 

1 NT EGER MAPNO « M APOL 1(2) »L UCODE 1 3 1 

INTEGER SPMAP « SPPOLVl 2 } • SPCODEI 3 1 

INTEGER FILL/* •/ 


LOGICAL OONUT/«FALSE#/*OUT/.FALSE./ 

LOGICAL IFLAG 

LOGICAL ALL IN. ALLOUT .FLAG *P0I 30001 »OI AG .PRTOUT/.FALSE./ 


ITERRY*0 
DEFINE FILE 
DEFINE FILE 
DEFINE file 
DEFINE FILE 
DEFINE FILE 


1113000. 80. E.IV11 

1213000.80. E.IV21 
131 30O0.39.E.IV31 
14< 3000.80.E.IV41 
151 3000.31 .E.IVSI 


00010000 
00020000 
00030000 
00040000 
OOOSOOOO 
00060000 
00070000 
00080000 
00090000 
OOlOOOOO 
001 lOOOO 
00120000 
00130000 
00140000 
00150000 
00160000 
00170000 
00180000 
00190000 
00200000 
00210000 
0O22O0C0 
00230000 
00240000 
002500 
00260000 
002700 


C 44444 4444 ♦♦44444444444444444A444 4444 44 44444444444444444444444444444444400280000 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


444444444444444444444444444444 4 444 

MAIN PROGRAM FOR POLYGON OVERLAY 

444 4 444444444444444444444444 4 44 4 44 

READ TEST POLYGON 

MAX - THE NUMBER OF POINTS IN THE POLYGON 
YMAX - THE MAXIMUM Y VALUE 
YMIN - THE MINIMUM Y VALUE 
X - X-COOROINATES 
Y - Y-COOROINATES 

DEFINE 1/0 UNITS 


BE SURE TO EXPAND ALL ARRAYS AND DEFINE FILES TO 
ACCOMODATE YOUR NEEDS 

ONLY ONE CARO IMAGE IS READ IN ON UNIT 51 PRTOUT 
.TRUE. IN COLS COLS 1-6 MILL RESULT IN FILE 14 BEING PRINTED 
1 IN COLS COL 1 WILL RESULT IN FILE 14 BEING PRINTED OUT 
0 IN COL COL 1 WILL RESULT IN FILE 14 NOT BEING PRINTED OUT 


READ C5.20IPRT0UT 
20 FORMAT til) 
iVlsl 
IV2*1 
IV3*1 
IV4»1 
IV5»I 

FIND CI3*ll 




00290000 
00300000 
4 00310000 
00320000 
4 00330000 
00340000 
00350000 
00360000 
00370000 
00380000 
00390000 
00400000 
00410000 
00420000 
00430000 
00440000 
00450000 
00460000 
00470000 
00480000 
00490000 
OUT00500000 
00510000 
00520000 
00530000 
00540000 
00550000 
00560000 
00570000 
00580000 
00590000 
00600000 
00610010 
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non no noon n non on 



FIND (14MI 
FfND <15M> 

WRITE <6«2700l 

2700 FORMAT <• CUUGE CALLED BY DRIVER/LA EMG |MI|M 
CALL CLU6E 
WRITE (6.2710I 

2710 FORMAT (• RETURNED FROM CLUGE EMG ||||*> 

FIND ( II* 1» 

FIND (12*11 
IVlsl 
IV2«l 

Nil CLUGE USED ONLY FOR TEST CASE 
UN BRINGS IN TEST DATA 

1UNIT=5 
JUN1T>6 
INT2:= 11 
iNSP^ia 
1ASC=6 
XZZ=13 

SET SWITCH FOR DIAGNOSTIC PRINT OUT 
ICNT^l 

DO SO I-1.1300 

30 READ ( 12*IV2«40«ERRs70) MAPOLt • XLE ( 1 ) • YLE( 1 I « XH£( II v 
lYHEC I )*N.( XfK|«V(Kl,K=l •Nl 
40 FORMAT ( 2I5/4FR. 0« 15/( 8F9«0 I) 

IF (N«LE«3000>GO TO 45 
42 FORMAT {• HAPNO* N~ ••2(15«2xn 
WRITE(6«44) MAPOLtvN 

44 FORMAT (* ERROR ERROR — — TOO MANY POINTS* t/** *«15»2X« 

115.* N= *.I6** PIOS/II TERMINATED*! 

STOP 

45 NMPOLY-I 

WR1TE(6«42I MAPOLl (l!*N 
MAPNO = MAPOL l I II 
CALCULATE RECORD COUNT 
IRE( II=ICNT 
ICNT*ICNT>24(N^3l/4 
IF ( MAPNO .EQ *99990 I GO TO 70 
50 CONT iNUe 

WRITE (6.601 

60 FORMAT (IX.* MORE THAN 1300 POLYGONS — PROCESS FIRST 1300.* I 
70 CONTINUE 

DlAGs .FALSE* 

80 CONTINUE 

SEARCH FOR SPECIFIED TRAFFIC ZONE 


00620020 

00630030 

00640000 

00650000 

00660000 

00670000 

00680000 

00690000 

00700000 

00710000 

00720000 

00730000 

00740000 

00750000 

00760000 

00770000 

00780000 

00790000 

00800000 

00810000 

00820000 

00830000 

00840000 

00850000 

008600 

00870000 

008800 

00890000 

00900050 

009100 

00920000 

009300 

00940000 

00950000 

009600 

009601 

00970000 

00980000 

00990000 

OlOOOOOO 

01010000 

01020000 

01030000 

01040000 

01050000 

01060000 

01070000 

01080000 

01090000 


01100000 

READ MAJOR POLYGON 01110000 

01120000 

CALL P0LYP9 ( 6930. MAPNO. MAPOLl .LUCODE .LUAREA.XMIN.YMI N.XMAX .YMAX.MOl 130000 
1 AX*X. Y. INTZ. FAC. DONUT. OUT. I VI ) 01140000 

WRITE! 15* IV5.86) MAPNO. MAPOL 1 ( 1 I .LUCODE (3 1 .MAPOLl (21 .LUAREA 01 1500 

WRITE! 7. 86! MAPNO. MAPOLl < 1 I .LUCODE (31 .MAPOLl ( 2 I .LUAREA 01150 1 

86 FORMAT ( 2 IS. 1 4. | 2.F 1 5* 2! 011502 

FIND (15*XV5! 01170000 

01180000 

SET THE SIGNIFICANCE VALUE FOR THE 01190000 


APPROXIMATION FOR THE INTERSECTIONS 01200000 
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SIG:s.Ol 


01210000 

01220000 


INITIAUIZE THE UPPER AND LOWER 

01230000 

01240000 


BOUNDS FOR XX AND YY* 

01250000 

VY=0*0 


01260000 

XX= t •0E6 


01270000 

MsMAX-1 


01260000 


FIND THE LOWER LEFT VERTEX OF 

01290000 


THE MAJOR POLYGON. 

01300000 

DO 110 Jsl.M 


01310000 

IF <V(J»-YV| 110«t00«90 


01320000 

90 VV*Y<J) 


01330000 

XXzX< J) 


01340000 

IJsJ 


01350000 

GO TO 110 


01360000 

00 IF <X(J>-XX) 90«110»110 


01370000 

10 CONTINUE 


01380000 


OUTPUT DIAGNOSTICS IF REQUESTED 

01390000 

01400000 

COMPUTE AND PRINT LEVELS 


01410000 

01420000 



0143000C 


SET VALUE OF THE STRIPPING 

01440000 


EXPONENT 

01450000 

NP»2 


01460000 

014700 

ISTP*2**NP 


01480000 

STEP* < YM A X- y M 1 N > / 1 STP 


01490000 

BLOW* YM IN-STEP 


01500000 

DO 120 J=1*ISTP 


01510000 

BLOX-BLOW^STEP 


01520000 

BHlHs8L0««'STEP 


01530000 

BLI JI^BLQW 


01540000 

BH< JI^BHIH 


01550000 

120 CONTINUE 


01560000 

BMC ISTP)=YMAX 


01570000 

INITIALIZE LEVEL AND STRING 

LISTS 

01560000 

01590000 

DO 130 IC-1*16 


01600000 

01610000 

NSTPLI 10 = 0 


01620000 

DO 130 1A=1«20 


01630000 

DO 130 IB=1«2 


01640000 

130 LSTPI IC«1B« 1A)=0 


01650000 

ISTRG*0 


01660000 

START STRING ASSIGNMENTS 


01670000 

01680000 

XLAST=Xf IJ) 


01690000 

01700000 

YLAST=YiIJ> 


01710000 

NOXstJ 


01720000 

LLEV=LEVEL< YLAS T« YM IN ,STEP 

♦ISTP.YMAXI 

0173DOOO 

ISTRG=ISTRG>1 


01740000 

XSTRCISTRGI*XLAST 


01750000 

YSTRI 1STRG)=YLAST 


01760000 

NSTPL ( LL EV > =NSTPLI LLE V ) ♦ 1 


01770000 

ILS=NSTPL4LLEV) 


01780000 

NF=ISTRG 


01790000 

LOOP THRU POINTS 


01800000 

01810000 
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DO 310 Jaea.MAX 

NDX:bMOD€NOX«M|4>1 

XCURsXCNOX) 

YCURsYCNOX) 

L6VC=LE VEL< YCUR • YM I N *STeP « I STP • VMAX > 

IF (LLEV.NE«LEVC» GO TO 160 

SAME LEVEL - SAME STRING 

IF <YCUR«NE«YSTRC1STRG)I GO TO 140 
IF CXCUR.NE.XSTRf ISTRGI) GO 0 140 
GO TO 150 
140 I STRGs I STRG 41 

XSTR( ISTRGY-XCUR 
YSTR( ISTRG)=YCUR 
150 CONTINUE 
GO TO 300 

OIFFCRNT LEVEL 

160 CONTINUE 

DEFINE DIRECTION 

lOIR=LEVC-LLEV 
IF <IOIR.lt *01 GO TO 220 

POSITIVE DIRECTION 
CLOSE LAST LEVEL 

170 YTEMP=*BH<LLEV) 

XTEMP«| XCUR-XLAST)»< YTEMP-YLAST|/<YCUR-YLAST)>XLAST 
IF <yTEMP.NE«YSTR<ISTRGn GO TO 180 
IF <XTEMP.NE«XSTR< ISTRGI) GO TO 180 
GO TO 190 
180 ISTRG=ISTRG41 

XSTRC ISTRGI-XTEMP 
YSTR< ISTRG)*YTEMP 
190 CONTINUE 

IF CNF.NE.ISTRGY GO TO 200 
NSTPL(LLEV>=NSTPL<LLEVI-I 
GO TO 210 

200 LSTP<LL£V»t.lLSI«NF 

LSTPCLLEV. 2. ILS Y-ISTRG 
210 CONTINUE 

START NEW LEVEL 
LLEV«LLEV4l 

NSTPL < LL E V I *N STPL < LLE V Y ♦ 1 

ILSaNSTPLILLEVY 

NF= ISTRG 

IF CLLEV.LT.LEVCI GO TO 170 
GO TO 270 

NEGAT I VE D IRECT I ON 
CLOSE LAST LEVEL 

220 YTEMP=sBL < LL EV Y 

XTEMP=< XCUR^XLA ST Y ♦< YTEMP" YLAS T Y /< YCUR- YLAST ) 4XL AST 
IF IYTEMP.NE.YSTRCISTRGIY go TO 230 
IF CXTEMP.NE.XSTRCISTRGY Y GO TO 230 


01820000 

01830000 

01840000 

01850000 

01860000 

01870000 

01880000 

01890000 

01900000 

01910000 

01920000 

01930000 

01940000 

01950000 

01960000 

01970000 

01980000 

01990000 

02000000 

02010000 

02020000 

02030000 

02040000 

02050000 

02060000 

02070000 

02080000 

02090000 

02100000 

02110000 

02120000 

02130000 

02140000 

02150000 

02160000 

02170000 

02180000 

02190000 

02200000 

02210000 

02220000 

02230000 

02240000 

02250000 

02260000 

02270000 

02280000 

02290000 

02300000 

02310000 

02320000 

02330000 

02340000 

02350000 

02360000 

02370000 

02380000 

02390000 

02400000 

02410000 

02420000 
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} 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


GO TO 240 
230 ISTRG=:1STRG-M 

XSTRC ISTRG)=XTEMP 
YSTRf ISTRG)=YTEWP 
240 CONTINUE 

IF <NF.NE*ISTRGI go TO 250 
N STPL ( LL F V ) =N STPL i LUH V ) - 1 
GO TO 260 

250 I.STPILLEV* I .ILS )=NF 

LSTP(LLEV.2*ILS>=:ISTRG 
260 CONTINUE 

START NE«( LEVEL 

LLEV=LLEV-1 

NSTPL ( LLE V ) =NSTPLC LLE V ) ♦ 1 
ILS-^NSTPLILLEV) 

NF=1STRG 

IF {LLEV.GT.LEVCI GO TO 220 
GO TO 270 

270 IF ( YCUR#NE.YSTR< ISTRG)) GO TO 280 
IF ( XCUR«NE«XSTR< ISTRGI) GO TO 280 
GO TO 2R0 
280 ISTRG=ISTRG4l 

XSTRI ISTRG)=XCUR 
ystri ISTRG)^VCUR 
290 CONTINUE 
300 XLAST=XCUR 
YLAST^YCUR 
310 CONTINUE 

CLOSE LAST STRING 

IF INF.NE. ISTRG) GO TO 320 
NSTPL C LL E V ) STPL < LLE V ) - 1 
GO TO 330 

320 LSTP(LLEV,1,ILS)=NF 

LSTP<LLEV.2« ILS )=ISTRG 
330 CONTINUE 

LOOP ON MINOR POLYGONS 




02430000 

02440000 

02450000 

02460000 

02470000 

02480000 

02490000 

02500000 

02510000 

02520000 

02530000 

02540000 

02550000 

02560000 

02570000 

02580000 

02590000 

02600000 

02610000 

02620000 

02630000 

02640000 

02650000 

02660000 

02670000 

02680000 

02690000 

02700000 

02710000 

02720000 

02730000 

02740000 

02750000 

02760000 

02770000 

02780000 

02790000 

02800000 

02810000 

02620000 

02830000 

02840000 

02850000 

444444444444444 02860000 


READ MINOR 
4 4 4 4 4 4 


POLYGON 

4 4 4 4 


4444444444 444444444444444 


10VER=0 

00 910 I I • NMPOL Y 

CHECK AND SEE IF EVEN ONE CORNER 
IF lYHEI IW).LT«YM1N) GO TO 910 
IF <YLE( IW).GT.YMAX) GO TO 910 
IF <XHEMM)«LT«XMIN) GO TO 
IF CXLEt 1 W) .GTaXMAX) GO TO 
IF get THIS FAR* THEN HAVE 
NN=rIREC IW) 

FIND ( 12«NN ) 

IV2=:NN 


IS IN THIS MAJOR POLYGON 


910 

910 

AN OVERLAP, 


02870000 

02880000 

02690000 

02900000 

02910000 

02920000 

02930000 

02940000 

02950000 

02960000 

02970000 

02980000 

02990000 

03000000 

03010050 


CALL POLYRO C S9 10* SPMAP • SPPOLY * SPCOOE • SPARE A . PXMIN* PYM IN* PX MAX * PYM030 20000 
1AX*NPTS*P*0*INSP.FAC*D0NUT*0UT*I V2) 03030000 


A -VII- 6 
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340 

C 


350 

360 


3 70 

380 

390 




IS MINOR POLYGON OUTSIDE OF TRAFFIC ZONE 
ALL I N=* TRUE# 

ALLOUT=.TRUE. 


SPCODEI 2I=LUC0DE( 2> 

DO 490 I=l*NPTS 
PP=P( I> 

QO=QC I ) 

IF tOQ«LT#rMIN) GO TO 470 

IF (QO.GT.VMAX) GO TO 470 

IF (PP.LT#XMIN) GO TO 470 

IF <PP#GT#XMAX) GO TO 470 

J=LEVEL< QQ* YMIN.STEP. ISTP*YMAX) 
JK=NSTPLC J) 

FLAG=. FALSE# 

IF (JK#EQ#OI GO TO 460 
DO 450 
YREM--1 #0 
JL=LSTP( J.l.JJ) 

JM=LSTP( J.2, JJ)-l 
DO 450 JN=JL#JM 
YP-YSTRC JN) 

YVP=YSTR|JN^1 ) 

XP^rXSTRC JN) 

XXP=XSTRC JN41 ) 

IF (QQ#GT#YP#ANO.QQ#GT# YYP) GO TO 440 
IF (QQ#LT#YP#ANO#QQ#LT.YYP) GO TO 440 
IF (PP#GT#XP#ANO#PP#GT#XXP) GO TO 440 
IF <QO#NE.YP) GO TO 370 
IF (PP.EQ#XPI GO TO 430 
IF (QQ#EQ#YREM) GO TO 400 
YREM=YP 


LAST^JN 

LAST^LAST-1 

IF (LAST.EQ.O) GO TO 450 

IF < QO.EQ#YSTR<LASTI ) GO TO 350 

YLAST=YSTR| LAST) 

NEXTsJN 


GO TO 450 
GO TO 450 


NEXT=NEXT-M 

IF <NEXT#GT#ISTRG) GO TO 450 
IF (QO#EQ#YSTR(NEXT) ) GO TO 360 
YNEXT=VSTRI NEXT) 

IF <OQ#GT#YLAST#ANO#QQ.GT#YNEXTI 
IF (QQ.LT#YLAST #ANO#QO.LT#YNEXT| 

IF <PP#LT#XP) GO TO 420 
GO TO 450 

IF (QQ#NE#YYP) GO TO 410 
IF (PP#EO#XXP) GO TO 430 
IF (QQ#EO#YREM) GO TO 400 
YREM=YYP 
LAST=JN4l 
LAST=LAST-1 

IF (QQ«EO#YSTRf LAST)) GO TO 380 
YLAST-YSTRCLAST ) 

NEXT=JN4l 
NEXT=NEXT41 

IF ( QQ#EQ#YSTRCNEXT) ) GO TO 390 

YNEXT=YSTR(NEXT) 

IF COO#GT*YLAST.ANO#QQ#GT#YNEXT) GO TO 450 
IF <0Q#LT#YLAST.AN0#QQ#LT#YNEXT) go TO 450 










03040000 
03050000 
03060000 
03070000 
03080000 
03090000 
03100000 
031 10000 
03120000 
03130000 
03140000 
03150000 
03160000 

031 70000 
03180000 
03190000 
03200000 
03210000 
03220000 
03230000 
03240000 
03250000 
03260000 

032 70000 
03280000 
03290000 
03300000 
03310000 
03320000 
03330000 
03340000 
03350000 
03360000 
03370^ OO 
03380 00 
03390000 
03400000 
03410000 
03420000 
03430000 
03440000 
03450000 
03460000 
03470000 
03480000 
03490000 
03500000 
03510000 
03520000 
03530000 
03540000 
03550000 
03560000 
03570000 
03580000 
03590000 
03600000 
03610000 
03620000 
03630000 
03640000 
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1 


400 

410 


420 

430 

440 

450 

460 

470 

450 

490 

500 


IF CPP-LT.XXP) GO TO 420 
GO TO 450 

IF (YP.NE.YVPI VREM--1.0 
GO TO 450 
YPEM=-t .0 

IF (PP«LE«XP«AND«PP«UE.XXP) GO TO 420 

IF <XP«EQ«XXP) GO TO 430 

IF (VP.EQ.YYP) GO TO 430 

XTEMPal XP-XXP)4« QQ-YYP)/( YP-YYP)4XXP 

IF (PP.GT.XTEMP) GO TO 450 

IF IPP.EQ.XTEMP) GO TO 430 

FLAG=«WOT*FLAG 

GO TO 450 

FLAG- .TRUE. 

GO TO 460 
YREM=-1«0 
CONT INUE 
CONTINUE 

IF (FLAG) GO TO 480 
PQ( I )=. FALSE. 

ALL IN= .FALSE. 

GO TO 490 
PQ( I )=.TRUE. 

ALLOUT=.FAL SE . 

CONT INUE 

IF CALLOUT) WRITE ( 6.500) SPPOL Y . SPCOOE 
FORMAT (IX. •ALLOUT^.IS. tX.I2.lX.A3.tX.I5.IX.I4) 
IF (ALL IN) GO TO 880 
IF (ALLOUT) GO TO 900 


BUILD THE INTERSECTING POLYGONS 

4i4t444444444444444444444444444444 

AN ARRAY IS CONSTRUCTED THAT CONTAINS ALL THE POINTS OF THE 
INTERSECTING POLYGON! S) 

THE MINOR POLYGON IS SEARCHED IN A SERIAL MANNER. AS EACH PAIR 
OF POINTS ARE ENCOUNTERED THE FOLLOWING CASES AND ACTIONS 
OCCUR 


I-l I 
OUT OUT 
OUT IN 


POINT I IS NOT ADDED TO THE ARRAY 

THE MAJOR POLYGON IS SEARCHED TO FIND THE LINE 
SEGMENT THAT INTERSECTS WITH THE MINOR POLYGON. 

THIS IS ACCOMPLISHED BY FIRST SEARCHING FOR LINE 
SEGMENTS THAT INTERSECT WITH THE RECTANGULAR 
REGION DEFINED 0Y THE POINTS I-l AND I. EACH 
LINE SEGMENT THAT DOES SO I S TESTED FOR INTERSECTION 
WITH THE LINE FORMED BY I-l . I* AT LEAST ONE 
SUCH INTERSECTION MUST OCCUR (OR THE POINT I 
WOULD BE OUT). THE POINT OF INTERSECTION IS ADDED TO 04180000 


03650000 

03660000 

03670000 

03680000 

03690000 

03700000 

03710000 

03720000 

03730000 

03740000 

03750000 

03760000 

03770000 

03780000 

03790000 

03800000 

03810000 

03820000 

03830000 

03840000 

03850000 

03860000 

03870000 

03880000 

03890000 

03900000 

03910000 

03920000 

03930000 

03940000 

03950000 

03960000 

03970000 

03980000 

03990000 

04000000 

04010000 

04020000 

04030000 

04040000 

04050000 

04060000 

04070000 

04080000 

04090000 

04100000 

04110000 

04120000 

04130000 

04140000 

04150000 

04160000 

04170000 


C 



THE ARRAY. STEPPING IS CONTINUED ON THE 

04190000 

c 



MINOR POLYGON. 

04200000 

c 




04210000 

c 

IN 

IN 

THE POINT I IS ADDED TO THE ARRAY 

04220 000 

c 




04230000 

c 

IN 

OUT 

THE MAJOR POLYGON IS SEARCHED FOR THE INTERSECTION. 

04240000 


THE INTERSECTION POINT IS ADDED TO THE ARRAY. 


04250000 
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C NOW STEPPING kS PERFORMED ON THE MAJOR POLTCON 

C IN THE direction SUCH THAT THE POINTS ARE IN THE 

C MINOR POLYGON, THESE POINTS ARE ADDED TO THE ARRAY, 

C WHEN THE STEPPING CAUSES A POINT TO BE OUT OF 

C THE minor POLYGON THE INTERSECTION POINT IS FOUND, 

C BY SEARCHING THE MINOR POLYGON, AND IS ADDED TO 

C THE ARRAY, STEPPING THEN RESUMES ON THE MINOR 

C POLYGON WHERE IT WAS LAST INTERRUPTED, 

C 

WRITE (6,700i)MAPN0,MAP0Ll Cl), SPMAP, SPCOOEI t ) ,SPCODEI 3) 

7004 FORMAT <• START BUILD- MAJOR • • I 5 ,2X I 5 ,2X , • MI NOR • , IS , 2XA3, 2X , 1 4 > 

NINTSssO 

J=0 

1=1 

IF (PQC I M GO TO 560 
C POINT I IS OUT 

510 1=141 

IF tI,GT,NPTS) GO TO 790 

IF f ,NOT,PQ< I ) I GO TO 510 


C 

c 

c 

c 


POINT I-l WAS OUT, POINT I IS IN 

FIND INTERSECTION BY SEARCHING MAJOR POLYGON 


K=0 

520 K=K41 

IF CK.GT,< ISTRG-II I 
FIND SPAN 


GO 70 530 


Y1=VSTRCK > 

V2=YSTROC41 I 
Vl=Q< I-I> 

V2=Q< I > 

IF i Y1,LT,V1,AND,Y2,LT,V1,AND, Y1,LT, V2, AND, Y2, LT,V2) 
IF < Y1,GT«V1,AN0,Y2,GT,VI • A ND, Y1 ,G T. V2, AND, Y2, GT, V2 ) 
XI*XSTR<K ) 

X2=XSTRCK41 ) 

U1=P< I-l) 

U2=P< I ) 

IF ( XI,LT,U1 ,AND,X2,LT,U1 ,A NO, XI ,LT, U2, AND, X2,LT,U2) 
IF 1X1 ,GT,U1*AND,X2,GT,U1 ,AN0,X1 ,GT,U2, AN0,X2,GT,U2) 

TEST FOR INTERSECTION 

A=X2-X1 

B=Ul-U2 

C=Y2-Y1 

D=V1-V2 

0ET=A40-C4B 

IF (OET,£Q,0) 60 TO 520 

E=U1-X1 

F=V1-Y1 

T0=(D»e-B4F )/OET 
P0=( A4F-C4E)/DET 

IF (TO,LT,0«0,OR,PO,LT,0,0) go to 520 

IF <T0,GT,1 ,0,0R,P0,GT,|,0) GO TO 520 

X1NT=T0»X24< l,0-T0)4Xl 

VINT*T0*V24C 1,0-T0)4Y1 

J=J41 

XI J)«XINT 

Y| J)=YINT 


GO TO 520 
GO TO 520 


GO TO 520 
GO TO 520 


04260 000 
04270000 
04280 000 
04290000 
04300000 
04310000 
04320000 
04330000 
04340000 
04350000 
04360000 
04370000 
04380000 
04390000 
04400000 
04410000 
04420000 
04430000 
04440000 
04450000 
04460000 
04470000 
04480000 
04490000 
04500000 
04510000 
04520000 
04530000 
04540000 
04550000 
04560000 
04570000 
04580000 
04590000 
04600000 
04610000 
04620000 
04630000 
04640000 
04650000 
04660000 
04670000 
04680000 
04690000 
04700000 
04710000 
04720000 
04730000 
04740000 
04750000 
04760000 
04770000 
04780000 
04790000 
04800000 
04810000 
04820000 
04830000 
04840000 
04850000 
04860000 
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} 


NINTS=NINTS^1 
INTSPININTS* I 
GO TO 560 
530 CONTINUE 
IERR=1 

WRITE (6«540l lERR 

540 FORMAT «• COULD NOT FIND INTERSECTION AT CHECK POINT ".IS) 
WRITE «6»550) SPMAP^SPPOLr 
550 FORMAT ( IX* I5« 1 X»A3« IX« I 2) 

WRITE <6*6201 P< I) « 01 I 1 • P( I - 1 1 * Q< I- 1 1 
GO TO 910 

C POINT I IS IN 

560 J=J41 

XC JI=P( I } 

YiJ )=Q< I > 

IF ( I.GT.l) GO TO 570 
NINTS=NINTS*M 
INTSPCNINTS*! )=J 
570 CONTINUE 
1=141 

IF CI*GT*NPTS) GO TO 580 
IF (PQ( 1)1 GO TO 560 
GO TO 590 

580 INTSPININTS *2) = J 
GO TO 790 
590 CONTINUE 
C 

C POINT I IS OUT*P0INT I-l WAS IN 

C FIND INTERSECTION BY S MAJOR POLYGON 

C 

K=0 

600 K=K41 

IF (K.GT^I ISTRG-l)> GO TO 610 

FIND SPAN 

Yl=YSTR<K) 

Y2=YSTR<K41 1 
Vl=Q< I- 1 1 
V2=Q<n 

IF I Yt*UT*Vi«AND*Y2*LT*Vl.AN0*Yl«LT.V2*AND*Y2«LT*V2) GO TO 600 
IF < Y1*GT«V1«AND*Y2«GT«VI»AN0*Y1«GT*V2*AND«Y2«GT.V2> GO TO 600 
X1=XSTR<K ) 

X2=XSTR(K41 1 
Ul-P( I- I ) 

U2=PC I ) 

IF ( Xl«LT*Ul •AND.X2*LT«U1 *AND«X1.LT«U2«AND*X2«LT«U2) GO TO 600 
IF <Xl«GT*UI«ANO«X2*GT«Ul*ANO«Xl*GT*U2*AND#X2*GT*U2) GO TO 600 

TEST FOR INTERSECTION 

A=X2-X 1 
B=Ul-U2 
C=Y2-Y1 
0=Vt-V2 
OET=A*O-C40 

IF (OET.EQ.O) GO TO 600 

e=ui-xi 

F=V1-Y1 

TO=(OTE-B4F IXOET 
P 0= ( A ♦F-C ♦F ) /OE T 


04870000 
04880000 
04890000 
04900000 
04910000 
04920000 
04930000 
04940000 
04950000 
04960000 
04970000 
04980000 
04990000 
05000000 
05010000 
05020000 
05030000 
05040000 
05050000 
05060000 
05070000 
05080000 
05090000 
05100000 
051 10000 
05120000 
05130000 
05140000 
05150000 
05160000 
05170000 
05180000 
05190000 
05200000 
05210000 
05220000 
05230000 
05240000 
05250000 
05260000 
05270000 
05280000 
05290000 
05300000 
05310000 
05320000 
05330000 
05340000 
05350000 
05360000 
05370000 
05380000 
05390000 
05400000 
05410000 
05420000 
05430000 
05440000 
05450000 
05460000 
05470000 
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IF <T0«LT«O.O«OR«P0«LT«0*0> GO TO 600 
IF fT0*GT«l«O«OR«PO«GT«l«0) GO TO 600 
XINTsT0*X24-( t«0-T0)«Xl 
YTNT3 sT 0*V24-( l.0-T0)^YI 
JaJ*M 
X( J ):=XINT 
Y< JI=:YINT 
GO TO 630 
610 IEPR=2 

WRITE (6«S40> lERR 
WRITE (6«550> SPMAP*SPPOCY 
WRITE (6.620) PI II .QC I > «PI I-t ) .QC I- 1 ) 

620 FORMAT |4F10«0I 
GO TO 910 
630 CONTINUE 

MIIIMIIMimi SECTION REMOVED JPL |||||M||| 

700 lOIRs:! 

K=sK4 1 

XE=XSTR|K I 
YE:=YSTR(KI 
710 XB=XINT 
Y0=YINT 

720 CALL STPSU0 ( XB . YB. XE, YE • SPX.SPY , NOSTP) 

DO 740 L=l*NOSTP 
XB=XB+SPX 
YB=YB+SPY 

CALL PIP |XB,YB*IN0.P»Q.NPTS) 

730 IF (IND.EO.OI GO TO 750 
740 CONTINUE 
C IF IT GETS HERE THE END POINT IS IN 

J^J-M 
XlJissXE 
Y|J|=YE 

C TAKE NEXT POINT 

KSK4IDIR 

IF |K«EQ«0l K=ISTRG-1 
IF (K*GTe(ISTPG-l)) K=l 
XB=XE 
YB=YE 
XE=XSTR|KI 
YE-YSTRIK I 
GO TO 720 
750 CONTINUE 

C POINT ( XB-SPX* YB^SPY) WAS U ^ > <XBtVb> IS OUT 

760 L^O 
770 L»L41 

IF IL*EQ«NPTS) GO TO 7B0 
Y1=QIL ) 

Y2=0(L^l I 

VI-YB 

V2=YB-SPY 

IF < Yt*LT«VI«AND«Y2«LT«Vl«AN0«Vl«LT«V2«AND* Y2«LT«V2) GO TO 770 
IF ( Yl .GT#V1 #AND.Y2»GT* VI • AND • Y t • G T. V2 • AND • Y2 • GT « V2 I GO TO 770 
Xl=rP(L I 
X2=P(L^I I 
ui=xa 

U2=XB-SPX 

IF I Xl«LT«Ut*AND.X2*LT.Ul.AND.Xt.LT«U2«AND.X2«LT«U2) GO TO 770 
IF |Xl«GT«Ut.AND.X2*GT«Ul«AND.X|«GT*U2«AND.X2«GT.U2> GO TO 770 






05460000 
05490000 
05500000 
05510000 
05S2GOOO 
05530000 
05540000 
05550000 
05560000 
05570000 
05580000 
05590000 
05600000 
05610000 
05620000 
05630000 
05640000 
05650000 
05660000 
05670000 
05680000 
05690000 
05700000 
05710000 
05720000 
05730000 
05740000 
05760000 
05760000 
05770000 
05780000 
05790000 
05800000 
05810000 
05820000 
05830000 
05840000 
05850000 
05860 000 
05870000 
05880000 
05890000 
05900000 
05910000 
05920000 
05930000 
05940000 
05950000 
05960000 
05970000 
05980000 
05990000 
06000000 
06010000 
06020000 
06030000 
06040000 
06050000 
06060000 
06070000 
06080000 




I 


1 

f 
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TEST FOR INTERSECTION 

A=X2-Xl 

B=Ul-U2 

C=Y2-Y1 

0=Vl-V2 

0ET=A»0-C*B 

IF COET.EQ.O#OI GO TO 770 

E=Ul-Xl 

F=V1-YI 

T0=(O*E-B*F)/DET 
P0=C A*F-C*E )/0ET 

IF <to.lt«o.o.or«po*lt«o.o> go to 

IF <T0«GT •! •0.0R*P0.GT«l.0l GO TO 
XINT=T0*X24-< l.0-T0l*Xl 
VINT*T0^Y2^f l^O-TOl *Y1 

X«J|=XINT 
Y< J)=YINT 
INTSP(NINTS«2)=J 
1 = 1-1 
60 TO 510 
780 IERR=3 

WRITE <6«540) lERR 
WRITE 16*550) SPMAP.SPPOLY 
WRITE (6*620) U1*V1*U2*V2 
GO TO 910 


790 CONTINUE 


FIND MINIMUM X AND Y VALUES 
TXMIN=1*0E>9 
TYMIN=1.0E+9 
TXMAX=0* 

TYMAX=0* 

DO 800 I=l*J 

IF ( X( I l*LT*TXM IN) TXMIN=X(I) 
IF <YC I l.LT.TYMIN) TYMIN=Y(I) 
IF (X( I )«GT*TXMAX) TXMAXsX( I) 
IF C Y( I )*GT*TYMAX) TYMAX=Y(I) 
800 CONTINUE 
C TRANSLATE COORDINATES 
DO 810 1=1. J 
XC I )=X< I )-TXMlN 
Y( I)=Y( I )-TYMIN 
810 CONTINUE 
AREA=0*0 
NQPTS=0 

DO 830 1=1*NINTS 
IJ=INTSPI I* !)♦! 

IX=INTSP( 1*2) 

IF (IJ.GT.IK) GO TO 830 
NQPTS=NQPTS^1 
P(NQPTS)=X( IJ-1 )^TXMIN 
0(N0PTS) = Y( IJ-D4-TYMIN 
DO 820 I I=IJ« IK 
NQPTS=NQPTS^1 
Pi NQPTS )= X( 1 1 )>TXM IN 


06090000 

06100000 

06110000 

06120000 

06130000 

06140000 

06150000 

06160000 

06170000 

06180000 

06190000 

06200000 

06210000 

770 06220000 

770 06230000 

06240000 

06250000 

06260000 

06270000 

06280000 

06290000 

06300000 

06310000 

06320000 

06330000 

06340000 

06350000 

06360000 

06370000 

06380000 

06390000 

06400000 

06410000 

06420000 

06430000 

06440000 

06450000 

06460000 

06470000 

06480000 

06490000 

06500000 

06510000 

06520000 

06530000 

06540000 

06550000 

06560000 

06570000 

06580000 

06590000 

06600000 

06610000 

06620000 

06630000 

06640000 

06650000 

06660000 

06670000 

06680000 

06690000 
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Q«NQPTS)*Y( II I^TYMIN 

820 AREAsAPEA^YI I I> AX< ID- Vf I I ) AXI I I - I ) ♦YI I I - 1 ) *X ( I I ) -Y ( I I- 1 ) »X HI - I ) 
830 CONTINUE 

840 AREA=( (ABS< AREAl/2«0>/43S60«0)4FAC 


C 

C 

c 


AREA ALGORITHM DOESN'T SEEM TO WORK 


7002 


AREA^O.O 

CALL AREAOF ( AREA*NOPTS*P.Q • IFLAGI 
IF (DONUT) AREA=-AREA 

WRITE (6»7002)MAPN0tMAP0Ll ( 1 ) • SPMAP * SPC OOE< I ) *SPCODE< 3) 

FORMAT (• ENOOF BUILD- MAJOR • • 1 5 *2X1 5 1 2X . • M I NOR • 1 1 5 *2X A3* 2X • 14 ) 
WRITE ( 14*1 V4* 850)MAPN0*MAP0L1 ( 1) *S PMAP . SPCOOE( 1 ) . SPCCOE( 3 ) * AREA* 
I TXMIN*TYMIN *TXM AX* TYMA X*NQPTS* ( P( I ) *0( I ) .1=1 *NQPTS) 

850 FORMAT! 3 IS* A3* I 4*F I 5*2/4F9*0. I 5/( 8F9. 0 ) ) 

860 F0RMAT(3(S«A3*I4*I2*FI5«2) 

861 FORMAT (• • . 31 5*A3 * I 4*F 1 5* 2 ) 

WRITE ( 6* 86 1 >MAPNO*MAPOLl C I » .SPMAP. SPCODEI I ) . SPCODE I 3 ) . AREA 
WRITE! I 3' IV3.860)MAPNO*MAP0Ll! 1 ) . SPMAP . SPCODE! 1 ) .SPCODE! 3 ). 
CSPPOLYC2).AREA 

WRITE! 9. 860 IMAPNO. MAPOL I C 1 ) • SP MAP .S PCODE ( I ) .SPCODE ( 3 ) *S PPOL Y < 2 ) . 

♦ AREA 

870 FORMAT !• • .3I5.F8*0* 1 X. A3.2I5.A6 *F8*0) 

IOVER=l 
GO TO 910 

C» ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦♦♦« 

C ALL THE MINOR POLYGON POINTS ARE IN 

C4 ♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦«♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

880 CONTINUE 

OTHERWISE THE AREA IN THE RECORD 
IS GOOD* FLOAT IT FOR COMPUTATION 

AREAsSPAREA 
IF (DONUT) AREA=-AREA 

WRITE OUT THE POLYGON AREA 

WRITE (6.7003)LUC0DE( I)*LUC00E!3) .SPCODE! 1) .SPCODEO) 

FORMAT (• ALLIN MAJOR • . A3* 2X . I 4 .2X . • M I NOR *»A3.2X.I4) 

WRITE ! 6* 86 1 >MAPNO. MAPOLl ! I ) .SPMAP* SPCODE! I > • SPCODE ! 3 ). AREA 
WRITE! 1 3' IV3*860)MAPNO*MAPOLI ! 1 )* SPMAP . SPCODE! I ) .SPCODE! 3 ). 
CSPP0LYI2I.AREA 

WRITE! 9. 860 IMAPNO* MAPOL 1 ! I ) . SP MAP . S PCODE ( I ) .SPCODE! 3) .SPPOL Y! 2). 

♦ AREA 
NQ=NPTS*1 

WRITE ( 14' I V4.8501MAPNO.MAPOLI ( 1 ) . SPMAP . SPC ODE ( I ) . SPC ODE! 3 ) . ARE A. 
IPXMIN. PYMIN.PXMAX*PYMAX.NPTS.!P! IJ)«Q!IJ)*IJ=1 .NPTS) 

IOVER=l 
GO TO 910 

^^^(^^^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦4 ♦ ♦♦♦♦♦♦ 

POLYGON IS ALL OUT 

continue 


C 

C 


7003 

090 


C4 

C 

C4 


♦ ♦ 


♦ 

900 


♦ ♦ 


C 

C 

C 

c 

C 


SINCE ALL THE POLYGON POINTS ARE OUT IT COULD BE THAT THE SOIL 
POLYGON COMPLETELY SURROUNDS THE TRAFFIC ZONE* IF ONE POINT OF 
TRAFFIC ZONE IS IN THE SOIL POLYGON THEN ALL OF IT IS IN. 


THE 


CALL PIP !XSTR! D.YSTR! 1) .IND.P.Q.NPTS) 
IF !IND.EQ*0) GO TO 910 


C 

C 

C 


IT IS IN SO WRITE THE AREA OUT TO SUMS FILE. 


AREA=LUAREA 




06700000 
06710000 
06720000 
06730000 
06740000 
06750000 
06760000 
06770000 
06780000 
06790000 
06800000 
06810000 
06820000 
06830000 
068400 
068500 
06860000 
06670000 
068800 
068801 
068802 
068803 
06890000 
06900000 
06910000 
♦06920000 
06930000 
♦06940000 
06950000 
06960000 
06970000 
06980000 
06990000 
07000000 
07010000 
07020000 
07030000 
070400 
070401 
070402 
070403 
07050000 
07060000 
07070000 
07080000 
07090000 
♦07100000 
071 10000 
♦07120000 
07130000 
07140000 
07150000 
07160000 
07170000 
07180000 
7 190000 
; 7200000 
07210000 
07220000 
07230000 
07240000 
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IF < DONUT) ARHAs-APEA 
NQ-MAX4>1 

WRITE (6»7004)LUC00E( t I •LUCQ0E<3) «SPCODEC t ) «SPC00EC3) 

7004 FORMAT <• ALLOUT MAJOR • • A3 «2X • 1 4 «2X • • MI NOR •«A3*2X«I4) 

WRITE < 14«I V4.850)MAPNO« MAPOLl < I ) .SPMAP • SPCODE ( I )*SPCOOe< 3) •AREA. 
1 XMIN.YMIN.XMAX.THAX.MAX.C X< 1 J) .Y( IJ) .lJst«MAX) 

WRITE (6.8701 SPMAP .MAPOL I .UUAREA . SPCODE .F lUL • AREA 
WRITE! 13«IV3.06OIMAPNO. MAPOLl! I ). SPMAP . SPCOOE ! I ).SPC00E!3). 
CSPP0LY!2).AREA 

WRITE! 9. 860 IMAPNO. MAPOLl € 1 ) • SPMAP .SPCOOE ! 1 ) .SPC0D£!3) .SPP0LY!2). 

♦ AREA 
IOVER=l 

CAN LOOP MERE ON MINOR POLYGONS 


910 CONTINUE 
920 write (6.950) 


MAJOR POLYGON= •.15.///) 


13 


INSP.MAPOLKl) 

REPLACEMENT IN CODE 

FIND ( 12* 1) 

IV2s 1 
GO TO 80 
CONT INUE 

WRITE (6.950) INTZ 
CONT INUE 

FORMAT (• EOF ON FILE ••15. 

WRITE (6.960) 

FORMAT (• PROCESSING ENDED AT EOO • ) 

4 EOF»S ON FILE 

DO 980 J=1.4 

WRITE ( 13*1V3.970> ( ENDOF ( I ) . I ^1 .6) 

FORMAT (8A4.A2) 

CONTINUE 

4 EOF-S ON FILE 14 

DO 1000 Jssl.4 

WRITE (14«IV4.990) ( ENDOF! I ) . I :=1 . 1 2 ) 

FORMAT (20A4) 

CONTINUE 
DO 1001 J-1.4 

WRITE ( 15«I V5.971)(EN00F( I ) .1=1.71 
FORMAT (7A4) 

CONTINUE 

IF ( .NOT. PRTOUT) GOTO 1999 
FIND ( !!• 1) 

IV1= 1 

WRITE (6. 1109) 

1109 FORMAT (• F ILE- 1 I— • ) 

DO 1130 IJ=1.10 

1110 READ ( I !• IVl.aSl )SPMAP.SPC00E(2) .SPCOOE!! ) . SPCODE! 3 ) .SPPOLY ( 2 I . AREO 7690 0 

lA.TXMIN.TYMlN.TXMAX.TYMAX.NOPTS. (P!I ) .O! I ) .1=1 .NQPTS) 07700040 

851 FORMAT! 21 5. A3. I 4 . 1 2.F I 5. 2/4F9. 0 • 1 5/( 8F9. 0 ) ) 0 77001 

FIND !I1«IV1I 07710045 

WRITE (6. 1021) SPMAP.SPCODE!2).SPCOOE!l ). SPCODE! 3) . SPPOLY (2 ). ARE A. 0 7720 0 
1 TXMIN. TYM IN. TXMAX. TYMAX. NQPTS. !P! I) .0! I ) . 1=1 .NQPTS) 07730055 

1130 CONTINUE 07740060 

WRITE! 6. 12011 077401 

1201 FORMAT!* FILE-12 •) 077402 

IV2=1 077403 

FIND ! 12* 1) 077404 

00 1230 IJ=I.10 07750065 

1210 READ (12* IV 2. 851 )SPMAP . SPCODE! 2 ). SPCOOE ! 1 ) .SPCODE! 3 ) .SPPOLY (2 ). AREO 7780 0 

1 A. TXMIN. TYM IN . T XMAX. TYMAX. NQPTS .( P( I ) .0! 1 ) . 1=1 .NQPTS ) 07790 085 


930 

940 

950 

960 


970 

980 


990 

1000 


971 

1001 


07250000 

07260000 

07270000 

07280000 

07290000 

07300000 

07310000 

073200 

07320 I 

073202 

0T3203 

07330000 

07340000 

07350000 

07360000 

07370000 

07380000 

07390000 

07400000 

07410050 

07420000 

07430000 

07440000 

07450000 

07460000 

07470000 

07400000 

07490000 

07500000 

07510000 

07520000 

07530000 

07540000 

07550000 

07560000 

07570000 

07580000 

07590000 

07600000 

076^0000 

07620000 

07630000 

07640010 

07650015 

07660020 

07670025 

07680030 
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FIND <I2MV2) 

MR1TE(6« 1021 ) SPMAP«SPCODE( 2) .SPCOOE ( 1 ) •SPCODEl 3) • SPPOLY < 2 > • AREA* 
ITXM!N*TYMIN*TXMAX*TYMAX.NQPTS*1P( 1 1 *Q( 1 ) *I=l*NQPTS) 

1230 CONTINUE 

C PRINT OUT 14 ON REQUEST 

FIND I14MI 
I V4= 1 

MRITE <6* 1005) 

1005 FORMAT (• FILE- 14 —•) 

DO 1030 IJ=U10 

1010 READ <14* IV4«850)MAPN0*MAP0L1 ( 1 ) • SPMAP* SPCOOE C 1 ) *SPC0DE< 3 ) * AREA* 
ITXMIN* TYMIN*TXMAX*TYMAX*NOPTS*« P< I ) *Q(I ) *1 = 1 *N0PTS) 

FIND 1 14» IV4I 

WRITE (6*10201 MAPNO*MAPOLl Cl) • SPMAP * SPCOOE ( I ) *SPCQ0E(3) .AREA* 
ITXMIN.TYM IN *TXMAX* TYMAX * NQPTS* C P( 1 ) *Q( I ) • I=l *NQPTS) 

1020 FORMAT (• • *3 1 5* A3« 1 4* F 1 5* 2/* • *4F 1 0. 0 * I 5/( • •«8F10«0)) 

1021 FORMAT (• • * 21 5* A3* 14 * 1 2 *F 1 5*2/ • • *4F 1 0. 1 * I 5 */( • ••8F10.1)) 

1030 CONTINUE 

1909 CONTINUE 
STOP 
C 

END 

POL.YRO/TIDY 

I I I I I M LATEST VERSION 9 JUNE •rs I | | I || 

SUBROUTINE POLYRO( ♦ * MAPNO * POLYNO* CODE * ARE A * XM I N * YMI N*XMAX * 

1 YMAX*N*X*Y* INUNIT*FAC *OONUT * OUT * / 1 NV/ ) 

DIMENSION XC 1 )* YC 1 ) 

INTEGER MAPNO*POLYNO( 21 *C0DE(3) 

LOGICAL DONUT*OUT 
LOGICAL IFLAG 
FAC= 1 «0 
OONUT= .FALSE. 

10 CONTINUE 
INQcs INV 

READ ( INUNIT* INV «20*ERR-1S0) MAPN0*C00E (2 ) *COOE(l ) *C0DE(3). ITYPE* 
1 AREA* XMIN*YMIN* XHAX « YMA X * N « ( X( K ) * Y( K ) »K^1 *N) 

20 FORMAT ( 2I5*A3* I 4* I 2.F 1 5.2/4F9. 0* 15/ C 8F9. 0 ) ) 

SOFTWARE EOF FLAG 
IF (MAPN0.EQ.99999) GO TO 150 
IF (MAPNO.EQ*00000) GO TO 150 

CALCULATE AREA FOR POLYGON 

IFLAG=. FALSE. 

SKIP IF AREAOF CALLED PREVIOUSLY ON THIS P-GON 
IF ( AREA)30*25*30 
25 CALL AREAOF ( AREA*N * X * Y* IFLAG) 

IF ( .N01 .IFLAG)G0T0 30 
FIND ( Ih UNI T« INQ ) 

WRITEC 6* 200 )HAP NO* CODE ( 2 ) «CQDE( 3) 

200 FORMAT (• REVERSED POLYGON • *I 5 *2X* I 5 *2 X * 14 ) 

WRITE ( INUNIT*INQ*20) MAPNO.CODEf 2 ) *CQDE(1) .CODEC 3) * ITYPE 
1 * AREA* XM IN* YMI N« XHAX * YMA X*N*C X( K) *Y(K) *Ksl ,N) 

30 CONTINUE 

IF C ITYPE. EQ. 10) GO TO 40 
OONUT=.TRUE • 

GO TO 60 
40 DO 50 J=2*N 
IQ=sJ-l 

XCIQ)~X<J) THIS PART FOR CENTRIOO ONLY 

YC lO ) = Yf J ) 

50 CONTINUE 
N=*N- 1 


07800090 
078100 
07820094 
07830098 
07840000 
07850000 
07860050 
07870060 
07880070 
07890080 
079000 
07910000 
07920000 
079300 
07940000 
079500 
079501 
07960000 
07970090 
07980000 
07990000 
08000000 
08010000 
06020000 
08030000 
08040000 
08050000 
08060000 
08070000 
08080000 
08090000 
08100000 
081 10000 
08120000 
08130000 
08140000 
081500 
08160000 
08170000 
081701 
08180000 
08190000 
08200000 
08210000 
08220000 
08230000 
08240000 
082500 
08260000 
08270000 
08280000 
08290000 
08300000 
08310000 
08320000 
08330000 
08340000 
08350000 
06360000 
08370000 
08380000 
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♦0 CONTINUE 
NOR=N 
N02=N/2 

60 POLYNOU )=CODE(2) 

POLYNOI 2)==I TYPE 

IF CX< l)«NE.X(Nn 60 TO 70 

IF < Y< 1 ).EQ.Y(N> ) GO TO 130 

70 OIST=SQPTC< ABS( X( 1 > * X< N )) > ♦ ♦a* ^ ( ABSC Y ( t >-Y( N) ) ) ♦*2. I 

DIST2==SQRTC CABS(X< I )-X( N- U ) ) ♦«2« ABS( Y< I > -Y ( N-1 M )»*2«) 

IF <OIST«LE.DIST2) GO TO 110 
N=N-l 

IF <N#GT.ND2> GO TO 90 
N«NOR 

WRITE C6«80l N 

80 FORMAT <• POLYGON PUT BACK IN ORIGIONAL STATE N* ••lA) 

DI STssSQRTU ABSI X( I )-XC N) ) ) AAE. A|ABS|Y< 1 I -YIN) n♦♦2• ) 

GO TO 110 

90 WRITE (6«100I N 

100 FORMAT <• POLYGON NOW HAS«#IA#« POINTS*) 

60 TO 70 
llO N=NA1 

XCN)^X( 1 ) 

YIN )=YI 1 ) 

IF I0IST.LT«10«) GO TO 130 
WRITE I 6* 120) 0 1ST 

120 FORMAT <• W ARN I NG. • .CLO S I NG DISTANCE * ••F8«2) 

130 CONTINUE 

IF I-NOT.OONUT) GO TO 140 
OONUT=.TRUE. 

OUT* .TRUE. 
lAO RETURN 
150 RETURN I 

160 WRITE (6« 165)1NUNIT«INV 

165 FORMAT I* AREA WRITE ERROR FROM POLYRO**/.« FILE* ••I5*3X. 

1* RECORD* ••15,* — RUN TERMINATED — *) 

STOP 

C 

END 

c imiinniiMMMMMmiMiiiiiiiiiiin 

C SUBROUTINE AREAOF 

C I I HI I I LATEST VERSION 9 JUNE *75 III II II I 

C CALCULATES AREA OF ANY POLYGON USING VECTOR ANALYSIS METHOD. 

C AREA* AREA TO BE DETERMINED 

C AND DIRECTION OF POINTS IE CLOCKWISE OR COUNTER-CLOCKWISE 

C N= NUMBER OF POINTS 

C X* ARRAY OF X VALUES 

C Y* ARRAY OF Y VALUES 

C IFLAG* DIRECTION FLAG 

C Itlltllllllllllllllllllllltlllllllllllllllllll 
SUBROUT INE AREAQFI AREA.N* X« Y. IFLAG) 

DIMENSION XI 1 )«YI 1 ) ,X1 1 1501 )«YI I 1501 ) 

LOGICAL IFLAG 

C INDICATES POLYGON WAS CLOCKWISE CR NOT 

IFLAG*. FALSE. 

AREA*0.0 
M*N- 1 

DO 50 Ll = 2. M 
A=XILl )-Xl 1 ) 

B*YIL I )-Yl 1 ) 

AI = X(L1A1 )-Xf 1 ) 

81 = YIL1A1 )-YI 1 ) 


08390000 

08400000 

08410000 

08420000 

08430000 

08440000 

08450000 

08460000 

08470000 

08480000 

08490000 

08500000 

08510000 

08520000 

08530000 

08S40000 

08550000 

08560000 

08570000 

08580000 

08590000 

08600000 

08610000 

08620000 

08630000 

08640000 

08650000 

08660000 

08670000 

08680000 

08690000 

08700000 

08710000 

08720000 

08730000 

08740000 

08750000 

08760000 

08770000 

08780000 

08790000 

08800000 

08810000 

08820000 

08830000 

08840000 

08850000 

08860000 

08870000 

08880000 

08890000 

08900000 

08910000 

08920000 

08930000 

08940000 

08950000 

08960000 

08970000 

08980000 

08990000 
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50 AREAS APEA4'AAB1-Ali»a 
IF <AREA)75«75« 51 

51 IFLAGs.TRUe. 


IF AREA IS NEGATIVE POINTS ARE COUNTER CLOCK-VISE FIX IT 

FOR CASE VITH EVEN NO. OF POINTS 
FOR CASE WITH EVEN NO. OF POINTS 

J=0 

N2sN/2 

N3=2*N2 

OOO CASE 
IF CN.NE.N3)J=l 

FIRST SAVE CONTENTS OF CELLS IN FIRST HALF OF ORIG ARRAY 

OO 55 Isl»N2 
X 1 < I )sX( I } 

Yl< I )sY< I > 

THEN MOVE BACK HALF OF ARRAY TO FRONT HALF. IN REVERSE ORDER 

XC I )=XIN-I+l> 
r< I >=Y(N-i^n 
55 CONTINUE 

NOV FILL BACK HALF OF ORIG Vl TH REVERSED FIRST HALF FROM HOLD 

N2=N2<-1^J 

00 60 I = N2.N 
J=J>1 

CAN SKIP THE PIVIT CELL VHEN N IS ODD 
X< I l=Xl(N2- J) 

YC I )sYHN 2- Jl 
60 CONTINUE 

1/2 AREA OF A PARALLELOGRAM 
75 AREA^I.SVfABSCAREAl } )/43560.0 
RETURN 
END 

lllltlllltlllltllltlllllllllllllttllllllllllll 

SUBROUTINE STPSUB ( XB. YB . XE* YE. SPX. SPY. NOSTP) 

OLX = XE - XB 
OLY = YE - YB 

COMPUTE THE LENGTH OF THE VECTOR 
SQUARED 

OIST s DLX ♦* 2 ♦ OLY **2 

IF lOIST .GT* 20000.) GO TO 5 

SPX s dlx 
SPY = DLY 
NOSTP = I 

GO TO 50 

5 CONTINUE 

1 = 0 




09000000 
09010000 
09020000 
09030000 
09040000 
09050000 
09060000 
09070000 
09080000 
09090000 
09100000 
091 10000 
09120000 
09X30000 
09140000 
09150000 
09160000 
091 70000 
09180000 
09190000 
09200000 
09210000 
09220000 
09230000 
09240000 
09250000 
09260000 
09270000 
09280000 
09290000 
09300000 
09310000 
09320000 
09330000 
09340000 
09350000 
09360000 
09370000 
09380000 
09390000 
09400000 
09410000 
09420000 
09430000 
09440000 
09450000 
09460000 
09470000 
09480000 
09490000 
09500000 
09510000 
09520000 
09530000 
09540000 
09550000 
09560000 
09570000 
09580000 
09590000 
09600000 
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c 

c 
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10 CONTINUE 

IF fOIST •LE- 20000«l GO TO 20 


I = I ♦ 1 

HALVE THE MAGNITUDE OF THE VECTOR 
UNTIL THE MAGNITUDE IS LESS THAN 
OR EQUAL TO THE VALUE OF .1 
NOTE,*- DIST IS THE SQUARE OF THE 
MAGNITUDE- 

OIST = DIST / 4- 
GO TO 10 


20 CONTINUE 

IFCABSIDLX) -LT 


COMPUTE THE SLOPE* IF DEFINED 
005 ) GO TO 30 


SLOPE = DLV / DLX 


COMPUTE INCREMENTAL VECTORS 

SPW = SIGN CSQRTIOIST / (1. 4 SLOPE ♦♦ 2))* OLXI 
SPY = SLOPE ♦ SPX 


GO TO 40 
30 CONTINUE 


COMPUTE THE SPY VECTOR INCREMENT 
IF SLOPE IS UNDEFINED 


SPX =0. 

SPY = SIGN (SQRTIOIST)* OLY) 


40 CONTINUE 

NOSTP = 2 ♦♦ I 


NUMBER OF INCREMENTS 


50 CONTINUE 
RETURN 
END 

FUNCTION LEVEL! Y, YMI N* STEP • I STP - YMAX I 
eLOW=YMlN 
DO 10 I=2-ISTP 
BLOW*0LOM4STEP 
0HIH=BLOW4STEP 
IF(I -EQ. ISTP) 8HIH ^ YMAX 
lF(Y-LE.8LOMl GO TO 10 
1F< Y-GT-BHIHl GO TO 10 
LEVELS I 
GO TO 20 
10 CONTINUE 
LEVELS I 
20 RETURN 
END 

ttiiiiiiitiiiriiliiiiiiiiiiiiiiiiiiiiii 1111111 
SUBROUTINE P IP< PP *OQ . I NO * X* Y* N ) 

OIMENSIG^4 X(N)«Y(N) 

LOGICAL SWT 


09610000 
09620000 
09630000 
09640000 
09650000 
09660000 
09670000 
09680000 
09690000 
09700000 
09710000 
09720000 
09730000 
09740000 
09750000 
09760000 
09770000 
09780000 
09790000 
09600000 
09610000 
09820000 
09830000 
09840000 
09850000 
09860000 
09870000 
09880000 
09890000 
09900000 
09910000 
09920000 
09930000 
09940000 
09950000 
09960000 
09970000 
09980000 
09990000 
10000000 
tooioooo 
10020000 
1 0030000 
10040000 
1 0050000 
10060000 
10070000 
1 0080000 
1 0090000 
10100000 
10110000 
10120000 
10130000 
1 0 1 40000 
10150000 
10160000 
I 01 70000 
10180000 
10190000 
1 0200000 


C4 44444 4444444 4444 4444 444 4444 ♦ 444 444 444 444 4444 44A444444 44444*4 44 444 44 10210 000 
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c 

c 
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c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


POINT- IN-POL rCON SUBROUTINE 


THE PURPOSE OF THIS SUBROUTINE IS TO DETERMINE IF THE POINT, 
(PP,QQ), IS IN THE POLYGON DEFINED BY THE ARRAYS X AND Y, 

MHICH ARE OF LENGTH N« INO=0 IF THE POINT IS NOT IN THE 
POLYGON, AND IND* 1 IF THE POINT IS IN THE POLYGON 

THE METHOD USED IS TO DRAW A DIRECTED LINE SEGMENT FROM THE 
POINT (PP«QQ) TO ( INFINITY.QQ), HENCE THE LINE STARTS FROM 
CPP#QQ) AND LIES IN THE PLUS X DIRECTION WITH SLOPE 2ERC. 

IF THIS directed LINE SEGMENT CROSSES THE POLYGON SIDES AN ODD 
NUMBER OF TIMES THE POINT (PP,QQ) IS IN THE POLYGON. IF THE 
DIRECTED LINE SEGMENT CROSSES THE POLYGON SIDES AN EVEN NUMBER OF 
TIMES THE POINT LIES OUTSIDE OF THE POLYGON. IF THE POINT 
LIES ON THE SIDE OF THE POLYGON IT IS CONSIDERED IN THE POLYGON. 

SWT IS SET TO FALSE. AT THE 
END OF THE ROUTINE IF SMT IS TRUE 
THE POINT IS CONSIDERED IN THE 
POLYGON. EACH TIME IT IS 
DETERMINED THAT THE DIRECTED LINE 
SEGMENT CROSSES THE POLYGON SIDE 
THE VALUE OF SWT IS FLIPPED. HENCE 
IF THE NUMBER OF CROSSINGS IS ODD 
THE VALUE OF SWT WILL BE TRUE. 

SWT=s. FALSE. 

IN CONSIDERING THE POINTS IN 
THE POLYGON ARRAYS, POINTS I AND 
M-t are CONSIDERED IN EACH LOOP. 
THEREFORE THE LOOP LIMIT 
PARAMETER IS SET TO N-1 

MaN- 1 

AT TIMES IN THE ALGORITHM IT IS 
NECESSARY TO KEEP TRACK OF THE LAST 
Y VERTEX COORDINATE. SINCE ALL Y 
VALUES ARE POSITIVE -1 IS USED AS A 
NULL VALUE 

YREMa- I 

IND IS SET TO ZERO AND CHANGED 
TO ONE LATER IF NEED BE 

INOaO 


LOOP THRU THE POLYGON POINTS 


DO 10 Iai,M 

STORE ARRAY VARIABLES INTO 
SCALARS TO ELIMINATE UNNECESSARY 
INDEXING 

YP*Y( I } 

YYPaY< I^n 
XPaXCI) 

XXPaXI I+l ) 

THE LINE SEGMENT DEFINEO BY (XP.VPI AND IXXP.YYP) IS CONSIOEREO 


10220000 
10230000 
10240000 
10250000 
10260000 
10270000 
10280000 
10200000 
10300000 
10310000 
10320000 
10330000 
10340000 
10350000 
10360000 
10370000 
10380000 
10390000 
10400000 
1 041000Q 
10420000 
10430000 
10440000 
10450000 
1 0460000 
10470000 
10480000 
10490000 
10500000 
10510000 
10520000 
10530000 
10540000 
10550000 
1 0560000 
10570000 
10580000 
10590000 
10600000 
10610000 
10620000 
10630000 
10640000 
10650000 
10660000 
10670000 
10680000 
10690000 
10700000 
10710000 
10720000 
10730000 
10740000 
10750000 
10760000 
10770000 
10780000 
10790000 
10800000 
10610000 
10820000 
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c 

C IF THE POINT IS COMPLETELY ABOVE 

C THE LINE SEGMENT THERE MILL 

C BE NO CROSSING. 

C 

IF(QQ.GT.YP.ANO.QQ.GT.YYP) GO TO 77 

LIKEWISE IF THE POINT IS BELOW 

IFIQQ.LT.YP.AND .QQ.LT.YYP) GO TO 77 

OR COMPLETELY TO THE RIGHT OF BOTH 
POINTS XP AND XXP 

IFCPP.GT.XPcAND.PP.GT.XXPI GO TO 77 


CONSIDER THE SPECIAL CASE WHEN OQ=YP OR BRANCH AROUND. 

IN THIS CASE THE POLYGON SIDE CAN COME UP TO THE POINT. 

TURN AROUND AND GO BACK. OR IT CAN ACTUALLY CROSS IT 

IFIQQ.NE.YP) GO TO 20 

ARE THE POINTS (PP.QQ) AND IXP.YP) 
THE SAME. IF SO THE POINT IS 
CONSIDERED IN. 

IFIPP.EQ.XP) GO TO 30 

IF THIS VERTEX WAS INCOUNTERED LAST 
TIME THRU THE LOOP THEN BRANCH OUT; 

9999 CONTINUE 

OTHERWISE THE CROSSING GETS COUNTED 

TWICE. 

IFIQQ.EQ.YREM) GO TO 40 

REMEMBER THE VERTEX SO IT CAN BE 
SKIPPED NEXT TIME THRU. 

YREM=YP 

SEARCH BACKWARD UNTIL THERE 

IS A VERTEX POINT WITH A Y VALUE 

NOT QQ 

LAST=I 

50 LAST=LAST-l 

IF(LAST.EO.O)GO TO 10 
IFIQQ.EQ.YILASTI ) GO TO 50 
YLAST=Y<LAST) 

SEARCH FOWARO UNTIL THERE IS A 
VERTEX POINT WITH A Y VALUE NOT 00. 

NEXT=I 

60 NEXT=NEXT4l 

IFINEXT.GT.NIGO TO 10 
IF<QQ.EQ.Y(N£XT) 1 GO TO 60 
YNEXT=YCNEXT> 

IF 00 IS GREATER THAN BOTH THEN 
THERE IS NO CROSSING. 

IFIQQ.GT. YLAST.AND.QQ.GT. YNEXT) GO TO 10 

IF 00 IS LESS THAN BOTH THERE 
IS NO CROSSING 

IFIQQ .LT.n.AST.ANO.QQ.LT. YNEXT) GO TO 10 


10S30000 
10840000 
10850000 
10860000 
10870000 
10680000 
10890000 
10900000 
10910000 
10920000 
10930000 
10940000 
10950000 
10960000 
10970000 
10980000 
10990000 
11000000 
11010000 
1 1020000 
I 1030000 
11040000 
11050000 
1 1060000 
1 1070000 
11080000 
11090000 
1 1 1 00000 
1 1 1 10000 
1 1120000 
1 1 130000 
I 1140000 
11 150000 
11 160000 
I 1 170000 
1 1 180000 
1 1 190000 
1 1200000 
1 1210000 
11220000 
1 1230000 
1 1240000 
11250000 
1 1260000 
11270000 
11280000 
1 1290000 
1 1300000 
11310000 
11320000 
1 1330000 
1 1340000 
11350000 
11360000 
1 1370000 
1 1380000 
1 1390000 
1 1400000 
11410000 
1 1420000 
1 1430000 
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CHECK FOR CROSSING 

IFCPP.LT.XP) GO TO 70 
GO TO 10 


^^^^*^ 1 ^^*^^*^*^******** 

CONSIDER THE SPECIAL CASE WHEN QQ=YYP OR BRANCH AROUND* 

IN THIS CASE THE POLYGON SIDE CAN COME UP TO THE POINT* 

TURN AROUND AND GO BACK* OR IT CAN ACTUALLY CROSS IT 

20 IF(OQ*NE*VYP> GO TO 80 

ARE THE POINTS(PP*QQ) AND (XXP*YYP) 
THE SAME# IF SO THE POINT IS 
CONSIDERED IN# 

IFIPP#EO#XXP) GO TO 30 

IF THIS VERTEX WAS INCOUNTERED LAST 
TIME THRU THE LOOP THEN BRANCH OUT; 
OTHERWISE THE CROSSING GETS COUNTED 
TWICE# 

IF< QQ#EO#YREM) GO TO 40 

REMEMBER THE VERTEX SO IT CAN BE 
SKIPPED NEXT TIME THRU# 

VREM=YYP 

SEARCH BACKWARD UNTIL THERE 
IS A VERTEX POINT WITH A Y VALUE 
NOT QQ 

LASTS 14 1 
90 LASTsLAST-1 

IFIQQ#EQ#Y<LASTn GO TO 90 
YLASTsY(LAST) 

SEARCH FOWARO UNTIL THERE IS A 
VERTEX POINT WITH A Y VALUE NOT OQ# 

NEXTsM-i 
100 NEXTsNEXT41 

IF(QO#EQ#Y(NEXrn GO TO 100 
YNEXTsYiNEXT) 

IF QQ IS GREATER THAN BOTH THEN 
THERE IS NO CROSSING. 

IF(QQ#GT#YLAST#AND#OQ#GT#YNEXT> GO TO 10 

IF QQ IS LESS THAN BOTH THERE 
IS NO CROSSING 


IFCQQ#LT*YLAST#AN0#QQ#LT#YNEXT> go to 10 


C 


c 

c 

c 

c 

c 


CHECK FOR CROSSING 

IF<PP#LT#XXP) go to 70 
GO TO 10 

RESET TO NULL VALUE 

40 IFC YP.NE.YYPI YREM=-l#0 
GO TO 10 

IF THE PROGRAM FLOW GETS TO HERE 
AND PP IS COMPLETELY TO THE LEFT OF 
THE LINE SEGMENT THERE IS A 
CROSSING 

80 YREMs-1.0 

IFCPP.LE.XP #ANO#PP#LE.XXP) GG TO fO 


1 1440000 
t 1450000 
1 1460000 
1 1470000 
1 1480000 
1 1490000 
11500000 
1 1510000 

1 isaoooo 

1 1530000 
11540000 
11550000 
1 1560000 
1 1570000 
11580000 
11590000 
1 1600000 
11610000 
11620000 
1 1630000 
1 1640000 
11650000 
1 1660000 
1 1670000 
1 1680000 
1 1690000 
1 1700000 
11710000 
1 1720000 
11730000 
1 1740000 
11750000 
11760000 
11770000 
11780000 
1 1790000 
1 1800000 
11810000 
1 1820000 
11830000 
1 1640000 
1 1850000 
1 1860000 
I 1870000 
11880000 
1 1690000 
1 1900000 
1 1910000 
1 1920000 
1 1930000 
11940000 
1 1950000 
I 1960000 
1 1970000 
11980000 
1 1990000 
12000000 
12010000 
12020000 
12030000 
12040000 


I 
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IF THE LINE SEGMENT IS VERTICAL 
THE POINT IS ON THE SIDE AND HENCE 
IS IN 

IFIXP.EQ.XXP) GO TO 30 

IF THE LINE SEGMENT IS HORIZONTAL 
THE POINT IS ON THE SIDE AND HENCE 
IS IN. 

IFC YP.EQ.YYP) GO TO 30 

COMPUTE THE X COORDINATE 
VALUE OF THE INTERSECTION OF THE 
LINE SEGMENT FROM C- I NFl NITY • QQ ) TO 
( INFINITY»QQ) AND THE SEGMENT 
< XP.YPI XXP.YYPI 

XTEMP=< XP-XXP)A(QQ-“YYP)/< VP-YYP)-#*XXP 

IF PP IS TO THE RIGHT THERE IS NO 
CROSSING 

IFCPP.GT.XTEMPI GO TO 10 

IF PP IS ON THE LINE THE POINT 
IS IN 

IFCPP.EO.XTEMP I GO TO 30 

OTHERWISE THERE IS A CROSSING 
AND SWT IS FLIPPED. 

70 SWT^.NOT.SWT 
GO TO 10 

THE POINT IS ON THE SIDE AND 
I S defined AS IN. 

30 SWTs, TRUE. 

GO TO 200 
77 YREM=-1.0 
10 CONTINUE 
200 CONTINUE 

IF SWT IS TRUE SET I NO TO 1 

IFISWTI IN0=1 

RETURN 

END 

MIIHIMMMIIi IIIIMIMIMIIIMIIimmiMIIIIIIIMIMMIMII Ml 

CLUGE 

ROUTINE TO READ CARDSFOR MAJOR*MINOR POLYGONS ONTO FiLEll. 

AND FILE 12 
SUBROUTINE CLUGE 
INTEGER IBUFI20> 

INTEGER MINR/*MINR*/*IEND/«END •/ .MORE/ •MORE*/ 

INTEGER NINE tNIN.BLANXI 171 

DATA NINE /*9999*/» NIN /*9 •/• BLANK /17W» •/ 

DATA ICT /•1378«/ 

COMMON /ALPHA/I VU I V2.IV3. 1V4. 1 V5 

1V1«1 

IV2*1 

FIND (IIM) 

FIND < 12* II 

START BY READING MAJOR POLY CARDS 
MAJOR FIRST 

10 READ <3«100«END»20I C IBUFC 1 > «t ,20) 

IF < IBUFC 1> .LT.ICTI GO TO 1 0 
100 FORMAT <20A4.| 

C WRITE <6,llll( iauF(ll.I:xi«20),IVl 


12050000 
12060000 
12070000 
12080000 
12090000 
12100000 
121 10000 
12120000 
12130000 
12140000 
12150000 
12160000 
12170000 
12180000 
12190000 
12200000 
12210000 
12220000 
12230000 
12240000 
12250000 
12260000 
12270000 
12280000 
12290000 
12300000 
12310000 
12320000 
12330000 
12340000 
12350000 
12360000 
12370000 
12380000 
12390000 
12400000 
12410000 
12420000 
12430000 
12440000 
12450000 
12460000 
12470000 
12480000 
12490000 
12500000 
12510000 
12510 I 
1 2510 2 
125103 
12520000 
12530000 
12540000 
12550000 
12560000 
12570000 
12580000 
125900 
12590 1 
126 10000 
12680000 
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WRITE < 1 IMVI'. lOOH IBUFin *1^1 *20) 

12690000 

111 

FORMAT (• FROM 11 ••20A4.« IVl= •*161 

12700000 


FIND ( 1 !• IVll 

12710000 


GO TO 10 

12720000 

20 

CONTINUE 

127300 


00 21 J=l-5 

127301 

21 

WRITE! 1 !• IVU 100) NINE »NI N.BLANK 

127302 

30 

READ C4, 100«ENO=:40) ( IBUF< 1 ) « I-l *20) 

127303 


WRITE! 12MV2. 10 01 ! IBUF! I ) *1^1 .20) 

127304 


WRITE C6, 1|2)€1BUF! I )«Isl«20) 

12740000 

112 

FORMAT !• FROM 12 ••20A4«« IV2=«»I6) 

127500 


FIND !12MV2) 

12760000 


GO TO 30 

127700 

40 

CONTINUE 

12830000 


DO 31 J=1«S 

128301 

31 

WRITE!12«IV2»100) NINE »NI N»BLANK 

128302 


FIND ! 1 1* 1) 

12840000 


FIND ! 12* 1) 

12850000 


IV 1=1 

12860000 


IV2=1 

12870000 


00 511 IJ-1«10 

12880000 


READ ! Il« IV U 100)1 IBUF! 1 >,I=I«20) 

12890000 


FIND ! 1 !• IVl) 

12900000 


WRITE !6»111) ( IBUFII )«1=1,20)«I VI 

129100 

511 

CONTINUE 

12920000 


DO 611 IJ^UIO 

12930000 


READ ! 12«IV2» tool! laUFf 1 )«I= 1 » 20 ) 

12940000 


FIND <12«IV2) 

12950000 


WRITE !6.1121 ! iaUF<l)»I = |,20)«lV2 

129600 

611 

CONTINUE 

12970000 


RETURN 

12980000 


END 

12990000 


. - , PAGE IS 

, , QUALITY! 
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DIMENSION PTAREAOO)« PERCTOC). POIFF (30) 

INTEGER SUMAP< 30 ) .SUCOOEI 3C I.SUORORI 30) .SUTVPEI 30) 

INTEGER CTRNO.eLKNO.CTORDR.CTTYPE 

INTEGER BLANK 

LOGICAL SKIP 

DATA BLANK /AH 

SKIP = .FALSE. 

LINECT=0 
1 CONTINUE 

WRITE (6.2001) 

2001 FORMAT! 1HI.S2K. ‘SUMMARY OUTPU T‘/ 

A46X. ‘LOS ANGELES-SANTA MONICA STUDY AREA*) 

WRITE (6.2002) 

2002 F0RMAT(S6X. ‘MAJOR POLYGON FILE*) 

WRITE (6.2003) 

2003 FORMAT! IX. ‘CENSUS CENSUS POLY POLY LAND USE LAND USE ‘ 

1. ‘POLY POLY ORIGINAL AREA RESIDUAL AREA DIFFERENCE*. 

2 * PERCENT NUM OF*) 

WRITE (6.2004) 

2004 FORMAT! IX. * TRACT BLOCK NUM TYPE MAP CODE * 

2. *NUM TYPE* .6 IX, ‘RES POLY*) 

WRITE (6.200S) 

2005 FORMAT (IH4 * • 

2 . * *. 

3 * */) 

IFILINECT.EQ.O )GO TO S 

LINECT=0 
GO TO 59 
5 INUM = 0 

PTAREA (1) = 0.0 
PERCT(l) = 0.0 
PDIFF( 1 )=0.0 
SUMAPI 1 )=0 
SUCODE! 1 )-0 
SU0R0R(t)s0 
SUTYPE! 1 )=0 

C READ (I5*IV5. 101) CTRNO , BLKNC .CTOROR.CTTVPE .CTAREA 

READ (IS .101) CTRNO. BLKNC. CTOROR.CTTYPE. CTAREA 

101 FORMAT (215, 14. 12. FIS. 2) 

IF (CTRNO.EQ. 99999) GO TO 999 
TOAREA = TOAREA ♦ CTAREA 
IF(SKIP) GOTO 15 

C 10 REAO( 13* IV3. 102) MAPNO, MAPNO 1 .LUMAP .LUCOOE .LUOROR .UUTYPE . ARE A 
10REA0(13 .102) MAPNO.MaPNOI .LUMAP.LUCODE.LUOROR.LUTYPC. AREA 

102 FORMAT! 315. A3. 14. 12. F15. 2) 

IS CONTINUE 

SKIP = .FALSE. 

IF (MAPNO-CTRNC ) 10.20.30 

20 iF(MAPNOl-BLKNC) 10,40.30 
40 INUM = INUM . 1 

PTAREA(INUM) s AREA 
PERCT(INUM) = 100.4AREA/CTAREA 
POIFF! INUM )>CT AREA- AREA 
SUMAP! INUM )sLUMAP 
SUCODE! INUM )=LUCOCE 
SUORDR! INUM )=LLORCR 
SUORDR! INUM IsLLORDR 
SUTYPE! INUM )*LLTYPE 

IF!PERCT!INUM).LT. 0.009) PERCT! (NUM)sO.OO 
IF (LUTTPE.LE.IO) GO TO SO 
PTAREA! INUM) « -P T AREA ( INUM ) 
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PeRCT CINUP) = -PERCT (iNtIP) 

PDIFFCINUPI s *P0IPF(INUM) 

50 CONTINUE 

TOTPR = TOTPR 4 PTAREA(INUM) 

GO TO 10 
30 CONTINUE 

PCTRNO - MOO (CTRNO.IO) 

MBLKNO s MOO (ELKhO.lO) 

CTRNO = CTRNO/IOAIOO^MCTRNO 

6LKN0 » BLKNO/IOAIOO^MBLKNO 

ST0T=:0.0 

SOlFFsO.O 

SPERD:k0«0 

1F(L1nECT»GT*5C >G0 TO 1 

59 CONTINUE 

IF( tNUW«LE«0> GO TO 61 
00 60 J=1«1NCM 
LINECT=UINECT+1 
65 CONTINUE 

MRITE(6»20I ) StMAPC J)«SUC0DE( J) • 

♦SUORCRC JI«SUTYPE( J)«PTAREA< J ) 

201 FORMAT I 34X« I5«7X«A3»6X*12«AX«I9»t8X*Fie«2) 

ST0T*ST0T4PTAREA( J ) 

60 CONTINUE 
SOIFFirCTAREA-STCT 
SPERD3100««SD1FF/CTAREA 

MR I TE <6 *2031 CTRNC «6LKN0«CT0RCR ,CTT YPE vCTAREA • STQ T • SO IFF «SPEPO • 
AINUM 

203 FORMAT! 1X« I6»4X« 1S«3X« 12. 16» 6X« •TOTAL* 
A«2Ft8«2«F13.2.F9«2«I8/) 

GO TO 62 

61 CONTINUE 

XRITE(6*204 ) CTRNO • BLKNO • CTORCR • CT TYPE • CT ARE A 

204 FORMAT! 1X» 16 • 4X 1 15 • 3X • I 2 • 4X • 1 2* 36X « 1F18«2« 

A4X»*444 NO RESIDUAL OVERLAY POLYGON FOUND ♦♦♦•/) 

62 CONTINUE 
LINECT=LINECT42 
SKIP s •TRUE* 

GO TO 5 

999 CONTINUE 

«HR1TE!6«202) TGAREA«TOTPR 

202 FORMAT! IHO* *TOTAL AREA OF CENSUS TR AC TS= • .F 1 5* 2/ 

♦ 1H0**TqTAL area of RESIDUAL POLYGONS-* *F15. 2 ) 

END 
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CFILF. I 0=TO/SORTED/RESIOl3.UNITs:OISK*RECORD=15*BLOCKlNG=4O 
CF ! L E 1 I =T O/L U I 3E « UN I T*0 1 SK • R EC ORO= I 5 • BLO CK I NG=40 
DEFINE FILE 10 C 3000* 80. E « 1 U 
DEFINE FILE 11 < 3000* 80»E • 12 ) 

DIMENSION SAPEAOO) • ISBLKI 301 
I 1=1 
12=1 
IERRS=0 
ICTR=0 
JCTR=0 
JUMP=0 

ASSIGN 100 TO JUMP 
ASSIGN 200 TO IGO 
AREA1=0« 

AREA 2=0. 

T0TI=0* 

TOT 2=0. 

11TA2=0 
ILTNES=0 

I WRITE I6«20ai> 

2021 FORMAT! IHl. S2X. •SUMMARY OUTPU T«/ 

♦48K* 'LOS ANGELES-SANTA MONICA STUDY AREA»I 

WRITE (6«2022l 

2022 F0RMAT(56X. •MINOR POLYGON FILE^) 

WRITE C6«2023) 

2023 FORMAT! lXt« CENSUS CENSUS LAND USE LAND USE POLY POLY* 

!*• ORIGINAL AREA RESIDUAL AREA OIFFERANCE •* 

2 • PERCENT NUM OF • I 
WRITE (6.20241 

2024 FORMAT! IX. • TRACT BLOCK MAP CODE NUM •. 

2*TYPE^ .70X. •RES POLY* 1 

WRITE ! 6. 20251 

2025 FORMAT < 1H4 • 

• 

2 .* .•> 

WRITE(6.200 1> 

IF! ILINES.EQ.OIGO TO S 
GO TO 205 

C READ! 10 • I 1. 1000 1 IMAP.ITAZ. ILUC «1 POL Y • I TYPE .ARE A1 

5 READ! 10 . 1000 1 I MAP . I BLK. 1 TAZ .1 LUC • 1 POLY.I TYPE . ARE At 

1000 FORMAT ! 15. 15.1 5.A3* 14. I 2. F15.2I 

ILINES=ILINES46 
INUM=1 

C FIN0!10*I1) 

ICTR=ICTR41 

C 33 READ! 11 • 12. 1000 I JM AP « JTAZ . JLUC • JPOL Y. JTYPE .AREA2 *N 
READ! 11 . 1001) JMAP. JTAZ. JLUC.JPOLY. JTYPE .AREA2.N 

loot FORMAT (15. I5.A3. 14.12. F15.2/ 36X,I5> 

C FIND! !!• 12) 

A=N 

A=! A/5.0 >4.9 

N=A 

I 1=1 14N-M 
JCTR=JCTR4l 

C 10 READ! 10« 1 1. 1000 } I IMAP .1 1 TAZ • 1 1 LUC • 1 1 POLY.I I TYPE. AREA I . N 

10 READ! 10 . 1000) 1 1 MAP . 1 1 BLK .1 I TAZ. 1 1 LUC .1 1 POLY . 1 1 TYPE. AREA I 

IF! 1 IMAP. EQ .99999) GO TO 900 
C FIND! 10* ID 

ICTR=ICTR4l 

20 IF!IIMAP.NE.IMAP)G0 TO 30 
IF! f ILUC.NE . ILUC )60 TO 30 
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IFI t IPOLY.NE.IPOLYIGO TO 30 
IF< I ITVOE.NE.ITYPF)GO TO 30 
ISBLK< 1 I^IBUK 
SAREAf 1 )=AREA1 
AREAt^AREAl 4-AREAl 
INUMS1NUM4-1 
SAREA( INUMl^APEAt 
ISBLK< 1NUM>=I1BLK 
GO TO 10 

30 GO TO JUMP«( 100«140«200| 

♦ O IMAP:=IIMAP 
IBLK^MBLK 
ITAZ=IITAZ 
IUUC=IILUC 
IPOLY=:IlPOLY 
AREA 1-AREA f 
tTYPEsI ITYPE 
INUM=1 
GO TO 10 

C too REA0fllM2« 1000)JJMAP«JJTAZ*JJLUC*JJPOLY«JJTYPE»AREAJ.N 
100 READI i 1 • loot ) JJMAP. JJTAZ.JJLUC * J JPOLY, J JTYPE • ARE AJ • N 

IFf JJMAP«EQ«999.99) GO TO 900 
A=N 

A=(A/5.0I4.9 

N*A 

I2=I2+N4I 

C FIN0(11«I2I 

JCTRaJCTR^l 

IF( JJTVPE.GT.IO )AREAJ*-AREAJ 
120 IF( JJMAP«NE *JMAP|GO TO 130 
IFIJJLUC.NE •JLUCIGO TO 130 
IFlJJPOLY.NE*JPOLYlGO TO 130 
IF( J JTYPE*NE«JTYPEIG0 to 130 
AREA2*AREA24AREAJ 
GO TO 100 

130 GO TO IGO,( 200) 

140 JTYPE=JJTYPE 
jMAPsjjMAP 
JTAZaJJTAZ 
JUUC=JJLUC 
JPOLYaJJPOLY 
AREA2^AREAJ 
GO TO 100 

200 IF« IPOLY.NE .JPOLYlGO TO 320 
ASSIGN 140 TO JUMP 
OELTA=AREA2-AREAl 
IF(AREA2«Ea«0.0)G0 TO 210 
OPCTaf ABSC DELTA )/AREA2) 4 100.0 
IF(1LINES.LT«50)G0 TO 210 
GO TO 1 
205 ILINES=S 
210 CONTINUE 

00 215 J=l« INUM 

MBUKNO = MOO ( I SBLKC J > • I 0 I 

TS8LK(J) s |SBLK€J)/10410O4NBLKN0 

WR! rE(6«20l5) ISBLICC J>*JMAP*JLUC.JPOLY, JTYPE.SAREAI Jl 
2015 FORMAT! I 1 X« I 5« BX« 1 6 «7X • A 3.5X. I 2 «4X« 1 2 « 8 X «F 1 3. 21 
ILINES=1LTNES41 
215 CONTINUE 

MflidAP s MOO CIMAP»10I 
I^jJAP = 1MAP/1041004MIMAP 






A -IX- 3 


WPITE(6« 200 2) IMAP. JMAP • JLUC . JPOLY • J TYPE .ARE A2 . AREA I . DELTA. 
lOPCT. INUM 
It INES«ILlNES^l 
TOTlsTOTl^AREAl 
T0T2=T0T2+AREA2 

I FI DELTA .ME «0«0) IERRS3IERRS4-1 
GO TO 40 

320 IF! |O0LY.LT.JP0LY)G0 TO 350 
GO TO 360 

350 ASSIGN 200 TO JUMP 
WRITEI6.200 1 ) 

WRITE(6.200 3)lMAPf ILUC . I POL Y , I TYPE . ARE Al 

WRITEC6.200 I > 

GO TO 40 

360 WRITEC6.200 I ) 

WR I TEC 6. 200 4) JMAP. JLUC • JPOLY , J TYPE . ARE A2 

WRITE! 6.200 I > 

GO TO 140 
900 WRITE(6.200 1 ) 

OELTA^TOT2-TOTl 

OPC I - ( ABSC DEL TA I/T0T2) ♦ 1 00* 0 

WRITE(6.2005)T0T2.TOTl .DELTA .DPCT 

A=IERRS 

9=JCTR 

C=l A/9 )4100 .0 

WRITE(6.2006)JCTR. ICTR.IERRS.C 
STOP 

2000 FORMAT! • I •. »MAP TA2 LUC POLYGON TYPE ORIGINAL AREA*. 

1 • RESIDUAL AREA DIFFERENCE PERCENT*. 

2 • RESIDUAL POLYGONS* > 

2001 FORMAT! IX) 

2002 FORMAT! I 7. 1 3X « I 5. 7X .A 3. 6X« 1 2 .4 X • I 2. 6X .Ft 5.2.5 X .F15.2.5X. 
1F10.2.5X.F6.2.7X. 12/) 

2003 F0RMAT(25X. I 5. 7X « A 3 .6X. 1 2. 4X. I 2.6X.F 1 5.2 .4X . 

I •4444 UNMATCHED RESIDUAL POLYGON 44*4*) 

2004 FORMAT! 25X. I 5.7X.A3.6X. I 2.4X.I 2.6X.F1 5.2.4X. 

I *4444 UNMATCHED ORIGINAL POLYGON 4444«) 

2005 FORMAT! «0*. *4444 OVERALL TOTALS 44444 • « 1 OX. FI O • 2 . 6X « F 1 0 . 2 • 6X « 

I F10.2.4X.F6.2) 

2006 FORMAT! IX. 'ORIGINAL POL YGONS * . I 5. * RESIDUAL POLYGONS* . 15. 

1 * ERRORS*.I5,* PERCENT* ,F7.2) 

END 
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